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AU SOMMAIRE DES 
ANCIENS NUMEROS DE 
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l'ORIC. Essai de la table graphique 


(Pour les seuls numéros encore 
disponibles en décembre 1986) 

Numéro 6 

Essais de l'XL DOS. AUTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la carte 8 
E/S MAGECO. VOICE : ORIC 
parle dans interface. RENUM-DES- 
TRUC renumération et suppression 
de lignes Basic. Les interrup¬ 
tions : une horloge. Master-mind : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MICRODISC. La 
Jasmin-Printer (Brother M 1009) à 
l'essai et recopie d'écran pour cette 
imprimante. 

Numéro 7 

BLURK'S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs en langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de secteurs sur Jas¬ 
min ou comment réparer une dis¬ 
quette. Tour d'horteon des Moni- 
teurs-Assembleurs du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS. 
Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface 
TVS. 

Numéro 10 

Essai du modem TONIC. Le Basic 
Français. Utilitaires pour vous plaire 
(1). Modifications du MONITEUR 
1.0 de LORICIELS. CROCKY : jeu. 
Compte bancaire : gérez-le sur 
M1CRO-DISC <$). Cbmpadbilité DTL 
2000 et JASMIN. 

Numéro 11 

Hors-série rempli d'une multitude de 
programmes en tousgenres. 

Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ. Le DTL 2000 + un serveur 
pas cher. Schéma électronique de 


GRAPHISCOP. 
moire de l'O 
vous plaire 
Assembleur. 

(suite et fin). 


artage mé- 
tilitaires pour 
Moniteur- 
Jompte bancaire 


Numéro 13 

Transfert du FORTH sur MICRO¬ 
DISC. TANDEM 13 uii logiciel pour 
le DTL 2000. Jouez avec les cou¬ 
leurs de l'ORIC. Utilitaires pour vous 
plaire (3). Créer des fenêtres sur 
ORIC. MICRODISC et JASMIN : 
ils communiquent. City on Raid : 
jeu. 

Numéro 14 

Le SEDORIC à la loupe. Un éditeur 
de caractères en langage ma¬ 
chine. CONJUGAISON: ORIC à 
l'école. Sortir le son eur le télé¬ 
viseur. Fenêtres (fin). Calculez 
votre Epargne-Logement Scrol- 
ling latéral. Sauvegarde des vari¬ 
ables avec rORIC-1. Un utilitaire: 
Super Désassembleur. Jouez 
avec les Mots-Cachés. 


Numéro 15 

Une imprimante à l'essai : la MT 
80S. Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai de la carte 256 
couleurs de Microfutur. Editeur de 
secteurs sur Jasmin. MUSICORIC 
pour que l'ORIC-1 devienne musi¬ 
cien. Carte série pour liaison avec 
MINITEL. Educatif : le moteur à 4 
temps. Redéfinition de caractères 
pour EASYTEXT. 

Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de l'écran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : logiciel d'application de 


la carte série Minitel. Recopie ra¬ 
pide sur imprimante mode texte 
Ecriture évoluée. LEONARD : utili¬ 
taire de dessin (1). Fiches de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacquettes de cas¬ 
settes pour GP 50. Catalogue 
amélioré sur Jasmin. 

Numéro 18 

Un drive 3"1/2 à Trlphonie : 
l'ORIC devient orgue. Connaissez- 
vous les objets tractais ? Le 
Devin : chirologie ou jeu ? Un jeu : 
Frog Panic. Pour lister un program¬ 
me à partir du MINITEL (et de la 
carte série) : MUST. Accordez vos 
instruments de musique avec Fré- 
quencamètre. Text-Hires (fin). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : GP 550 et Brother Ml009 
(Jasmin printer). Lister l'EPROM du 
Microdisc. 

Numéro 19 

Léonard : -fin de l'utilitaire création 
graphique. Modifications de l'AT- 
MOS et du MICRODISC. Un mlnl- 
Interpréteur. Protection du Hl- 
MEM. Le tri en langage machine. 
Jeu éducatif : EUROP'ORIC. En sa¬ 
voir plus sur le SEDORIC. Compte 
bancaire :gérez-le sur JASMIN. Uti¬ 
litaires pour vous plaire (4). 

Numéro 20 

CALCULATOR: banc d'essai - 
PUISSANCE 4 jeu - Recopie d'é¬ 
cran pour FASTEXT 80 - Mini Inter¬ 
préteur Basic. 

Numéro 21 

Les interruptions - éÉjmation gra¬ 
phique en 3 D — Jeu ; Singerie (1) - 
SEDUTIL pour mieuxîutiliser SEDO¬ 
RIC - Recopie page VIDEOTEX - 
Buffer soft pour imprimante - Super 
recopie d'écran. 


Numéro 22 

Tout sur le VIA 6522 - GROS: 
caractères g éants - MUSICORIC et 
JASMIN - '4f& Ipberies (2) - 
SWAP OVE^LA Y - Diététique : 
mieux s'alimenta ^^Schéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Numéro 23 

Educatif : TABLORIC. Print Formaté 

- String : comrfijlind&graphiques - 
Sauvetage d'un programme - Cal¬ 
culs de l'ORIC 1 --Trames et collages 

- Casse-briques - clipping. 

Numéro 24 

Chasse au bug - Astrologie et ordi¬ 
nateur - Singerie (fin) Calculs dans 
N - Dossier TELESTRAT - Mini- 
Print : éditeur de banderolles - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 

Numéro 25 

Test: le Jasmin-PÇ. jÊes fichiers 
dont tout le monde parte - Ecriture 
stylée sur MCP 40 - Jeu de la vie - 
Rem color - En saroir plus sur FT 
DOS - Data + - ORIC à 2 ROM - 
MUSIC(I) 

Les articles et programmes rappelés 
ci-dessus ne forment que l'essentiel 
des différents numéros de THEORIC 
cités. Les essais des différents logi¬ 
ciels. les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter à compléter votre collec¬ 
tion de THEORIC. B 
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MOU UNS MICRO PERON 
90, rue Regemortes 
03000 MOULINS 


LIBRAIRIE PRIVAT 
14, rue des Arts 
31000 Toulouse 


GUERLJN-MART1N 4 R LS - LIBRAIRIE 
82, place Drouet cfErlon BP 216 
51058 REIMS CEDEX 


ARPAJOU-ORGAMSATION 
12, place de la Cahédrale 
64100 BAYONNE 


SHOP PHOTO 

33, rue Commandant Mouchotte 
75014 PARIS 


L’OREILLE HARDIE 
Cenfre Commercial Intermarché 
04000 DIGNE 


LA PUCE SAVANTE 
8, Bd de la Gare 
31500 TOULOUSE 


LIBRAIRIE MCHAUD 

9, rue du Cadran Saint Rene BP 360 
51062 REIMS CEDEX 


GES PYRENEES 
28, rue de Chassin 
64600 ANGLET 


FNAC FORUM 
1. rue Pierre-Lescot 
75045 PARIS CEDEX 01 


FNAC ETOILE - Centre NICE Etoile 
30, avenue Jean Mededn 
06000 NICE 

HI-FI DIFFUSION - Jeemco SARL 
19, rue Tonduti de TEscarène 
06000 NICE 

UBRAJRIE A LA SORBOftJE 

S.N.C. Seyrat 

23, rue Hôtel des Postes 

42, rue Gioffredo 

06000 NICE 

GES COTE D'AZUR 
Résidence les Heures Claires 
454, rue des Vaoqueries 
06210 MANDE U EU 

UBRAJRIE A LA SORBONNE 

7, rue des Belges 
06400 CANNÉS 

PANORAMA DU UVRE 
UBRAJRIE DES ECOLES 
Cenfre Commercial CAP 3000 
06702 ST LAURENT DU VAR 


MICROPOUS 

29, rue Pailot de Montabert 

10000 TROYES 


U BR Al RIE DE L’UMVERSTTE 
12 A, rue Nazareto 
13100 AIX EN PROVENCE 

FNAC MARSEILLE 

Cenée Bourse 

13231 MARSEILLE CEDEX 

UBRAJRIE FLAMMARION 
54, la Camebière 
3, Marché des Capucins 

13231 MARSEILLE CEDEX 1 

MAU PETIT UBRAJRIE 
UMVERS ALLEES 
144, La Canebère 

13232 MARSEILLE CEDEX 01 

LA PUCE INFORMATIQUE 

42, rue du Four-Bourg-Neuf Vieux Salon 

13300 SALON DE PROVENCE 


UBRAJRIE ARMOIRIES - JABALOT B. 

26, rue Saint-Yon 
17000 LA ROCHELLE 

JyL2L 

21 rue Abert 1er 
17000 LA ROCHELLE 


GES CENTRE 
25, rue Colette 
18000 BOURGES 


UBRAJRIE DE L'UMVERSfTE 
17, rue de la Liberté BP 1070 
21025 DUON CEDEX 


BERGERAC DIFFUSION PRESSE 

37, rue de la (Résistance 
24100 BERGERAC 


CRUSSOL LIBRAIRIE 
10 Bd Gai de Gauôe 
26000 VALENCE 


U BR Al RIE LEGUE - AU UVRE D’OR 
10, rue Noèl Balay 
28000 CHARTRES 

UBRAJRIE D. LESTER 
13, bis rue du Cygne BP 124 
28007 CHARTRES CEDEX 


K EM PER INFORMATIQUE 
72/74, av de la Libération 
29000 OU IMPER 


CASTELA S. A. 

LA MAISON DU STYLO 
20, place du Capitole 
31000 TOULOUSE 

FNAC TOULOUSE 
UBRAJRIE DES CAPTTOULS 
1 bis, place Occitane 
31000 Toulouse 


LIBRAIRIE MOLLAT 

83 à 91, rue Porte-Diieaux 
33080 BORDEAUX 

FXAG 

Cenfre commercial Polygone 
33000 BORDEAUX 


SON VIDEO 2000 
MICRO-AQUITAINE (Ex COCAS) 
31. Cours defYser 
33800 BORDEAUX 


INFORMATIQUE 2000 
place René Dévie Le Triangle 
34000 MONTPELLIER 

MICROPUS 
15, Bd Gambetta 
34000 MONTPELLIER 

LIBRAIRIE SAURAMPS 
Le Triangle 

Allée Jules Mühau BP 9551 
34045 MONTPELLIER CEDEX 


FORUM DU LIVRE 
5, quai Lamartine 
35000 RENNES 

MICRO STORE 
3, place St Germain 
35000 RENNES 

LIBRAIRIE DIALOGUES 
LOISIR & CULTURE 
rue de la Chaiotars 
35ÛOO RENNES 

MCRO-C INFORMATIQUE 
3, Bd de Beaumont 
35000 RENNES 

I.GL NFORMA71QUE 
48, Bd de la Uberté 
35000 RENNES 


VIDEO SERVICE NFORMAT1QUE 
GALLE 

9, place du Président Coty 
37100 TOURS NORD 

LSI 

Cenfre Commercial CATS 
37170 CHAMBRAY LES TOURS 


LIBRAIRIE ARTH AUD 
23, Grande rue BP 187 
38000 GRENOBLE 

UBRAJRIE HAREL 

11, rue Saint Jaoques 
38000 GRENOBLE 


LIBRAIRIE VIDONNE 

134, rue de la République 
39400 MOREZ 


LIBRAIRIE P1LETAN 

3. rue du Commerce 
41000 BLOIS 


LIBRAIRIE LAUXERdS 
40, rue Charles de Gaule 
42300 ROANNE 


LIBRAIRIE C. OUGUEL 
TECH MOUE ET CLASSIQUE 

8, place de la Bouse 
44000 NANTES 

MICRON AUTE 

9, rue Urvoy de Saint Bedan 
44000 NANTES 


LIBRAIRIE LOODE 
Angle rues J. (f Arc et Royale 
45000 ORLEANS 


RICHE R LIBRAIRIE 
6, rue Chaperonniére 
49000 ANGERS 

DEPOT REGIONAL DE UBRAJRIE 
FORUM 

Cenfre Commercial 
•Les Halles’BP 811 
49006 ANGERS CEDEX 


LOGIMICRO 
Né Lerbier 
2 av. de Laon 
51100 REIMS 


M.LL 

27, rue Ambroise Paré 
5?000 LAVAL 


MICRO-PYRENEES 
41, rue du 4 septembre 
65000 TARBES 

ORDI-2000 

Thierry COLENO 

127, av. du Régiment de Bigorre 

65000 TARBES 


BERGER VICTOR 
LA GRANDE UBRAIRIE 
13,15 rue St Georges 
54000 NANCY 

UBRAIRIE "A LA SORBONNE’ 
F. SCHMITZBERGER et Cie 
12, rue St Dizier BP 25 
54002 NANCY CEDEX 


LA BOUQUINE RIE 
7, rue du Port 
56100 LORIENT 


INFORMATIQUE SERVICE 
68, rue Maréchal Foch 
66000 PERPIGNAN 


MICRO CENTER 
Centre Commercial 
place des Halles 
67000 STRASBOURG 

BERGER LEVRAULT 

23, place Broglie 

67081 STRASBOURG CEDEX 


MdwilUTZ 
6, rue Clovis 
57000 METZ 

MC RO BOUTIQUE - ECONO MAISON 
1-3, rue Paul Bezançon, 
place de la Cabèdrale 
57000 METZ 

ELECTRONIC CENTER 
16, rue Ancien Hôpital 
57100THIONVILLE 


FURET DU NORD 
15, place de Gaulle BP 255 
59002 ULLE CEDEX 

IICROTEX - TAQUIN 
22, place de la république 
5Ô170 CROIX 

FURET DU NORD 

20, place de la République 
59200 TOURCOING 

FURET DU NORD 

21, rue du Quesnoy 
59300 VALENCIENNES 

PROTEC PHONE 

9, rue St Jaoques 
59500 DOUAI 

ANTENNES P RING AU LT 
39, ter route de Feignies 
59600 MAUBEUGE 

FURET DU NORD - DE RO ME SA 
18 et 20, av. Jean Mabuse 
59600 MAUBEUGE 


FURET DU NORD 
15, Bd BasJy 
62300 LE NS 

LENS MICRO INFORMATIQUE 
96 av. Alfred Maes 
route de Lievin 
62300 LENS 

MICROGICIEL 
Bernard Thomas 
2, place P. Bonhomme 
62500 St OMER 

GES NORD 
9, rue de T Alouette 
62690 ESTREE CAUCHY 


GIBERT JOSEPH UBRAIRIE 

42, av des Etats-Unis 
63000 CLERMONT FERRAND 

UBRAJRIE LES VOLCANS 

80, ôd Gergovia 

63000 CLËfiMONT FERRAND 

NEYRIAL 

3 Bd Desax 

63000 CLERMONT FERRAND 


BASE 4 Ubrairie 

Eric GRENIER 


11, rue Samonzet 
64000 PAU 


UBRAIRIE HARTMANN Paul 

24, Grande rue 
68025 COLMAR CEDEX 

ALSATIA UNION 

4, place de la Réunion 
68051 MULHOUSE 

UBRAJRIE G BISEY 

35, place de la Réunion 
68100 MULHOUSE 


GES LYON 
6, rue de T Alma 

69001 LYON 

FLAMMARION UBRAJRIE 

19, place BeHecour 

69002 LYON 

UBRAIRIE CAMUGU 
6. rue de la Charité 
69002 LYON 

UBRAIRIE DECITRE 
6, place Beüecour 

69002 LYON 

TOUT POUR LA RADIO 
66, Cous Lafayette 

69003 LYON 

MICRO-GESTION-FOCH 
25, rue de Séze 
69006 LYON 


UBRAIRIE INFORMATIQUE 
MONTAIG 
8, rue Pré Benevix 
74300 CLUSES 


GIBERT JEUNE 
15. bis Bd St Denis 
75006 PARIS 

FNAC ETOILE 

26, avenue de Wagram 

75008 PARIS 

MICROPLUS "ELYSEES 26" 
28, av. Champs EJysèes 

75008 PARIS 

MICROPLUS 

Sté K BS ELECTRONICS 

64, rue de la Chaussée d’Anlin 

75009 PARIS 

UBRAJRIE PARISIENNE 
DE LA RADIO 
43, rue de Dunkerque 
75480 Par» Cédex/10 

V1SMO 

84, Bd Beaumarchais 

75011 PARIS 

CHOLET COMPOSANTS 
ELECTRON QUE 
2, rue Emio-Castelar 

75012 PARIS 

GENERALE 

ELECTRON QUE SERVICES 
GES. Paria 
68 et 76, av Ledru Roi lin 
75012 PARIS 


UBRAIRIE EYROLLES 

61, Bd St Germain 
75240 PARIS CEDEX 05 

UBRAIRIE DUNOD 

30, rue Saint-Sulpice 
75278 PARIS CEDEX 06 


Cm ZEN B AND 
31, Bd de la Marne 
76000 ROUEN 

UBRAIRIE LESTRINGANT 
123, rue Gai Lederc 
76000 ROUEN 


ETS THOMAS 
MICRO-INFORMATIQUE 
153, av. de la République 
78500 SARTROUVILLE 


UBRAIRIE DELOCHE S.A 
21, rue de la République 
82000 MONTAUBAN 


UBRAIRIE GAY 
4. place delà Liberté 
83000 TOULON 


UBRAJRIE AM8LAR0 

10-14, Portail Maheron 
84000 AVIGNON 

RC ELECTRONIC 
M MARTIN Robert 
53, rue Vida Hugo BP 12 
84100 ORANGE 


GIBERT J. UBRAJRIE 
9, rue Gambetta 
86000 POITIERS 

MAJUSCULE POITOU 
3, bis rue de l'Eperon 
86000 POITIERS 

UBRAIRIE 
DE L’UNIVERSITE 
70, Rue Gambetta BP 109 
86003 POfTIERS CEDEX 


UBRAIRIE BARADAT 
8. place St Pierre 
87100 LIMOGES 


S.D.L 

25, route de Montargis 
89300 JOIGNY 


NIOCHAU-MARECHAL 
UBRAJRIE DU LYCEE 
100, Grande-Rue 
91160 LONGJUMEAU 

LGV 

130, rue de Corbed Viemoisson s/Orge 
91360 EPINAYSORGE 


LOISJTECH 
Cenée Terminal 93 
93106 MONTREUIL 

ORD! PLUS 
7, place Cameinat 
93600 AULNAY S/90IS 


BERTHET A. SA 
U B. de la Grande Rue 
105, Grande Rue Ch. de Gaulle 
94130 NOGENT S/MARNE 

O RDM DU EL 
20, rue de Montreuil 
94300 VINCENNES 

LADNER S.A 

175, av. du Général Lederc 

94780 MAISON-ALFORT 


AVENA STE 
Square Colomba 
BP 94 

95021 CERGY CEDEX 

UBRAJRIE 
POCHOTHEQUE 
LECUT R erre 
2, rue de Stafingrad 
95120 ERMONÎ 





• Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : i 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. | 

Tout appel en dehors de ces créneaux sera refoulé . ne 
dépensez pas inutilement votre argent ! 
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Additif à Hard Copy 
sur MCP 40 

FORTH : Rock'n Scroll — 
Super Fen: 

les menus débutants_ 

Ampli-bus- 

Fractals- 

Tracé 

d'histogrammes en 3D — 

Petites annonces _ 

Abonnement et disquettes 


Editorial_ 

Courrier et actualité — 

Vitrine du logiciel - 

Jeu :ORIC-HIPPIC- 

Tableau 

de bord pour ORIC _ 

Additif à MUSIC- 

Additif à DATA +- 

Ces fichiers 

dont tout le monde parle 
Surveillez votre poids _ 
Trucs et astuces- 


Les articles et programmes que nous publions dons 
ce numéro bénéficient pour une grande part du 
droit d'auteur. De ce fait, ils ne peuvent être repro¬ 
duits, imités, contrefaits, même partiellement, sans 
l'autorisation écrite de la Société SORACOM et de 
l'auteur concerné. Les différents montages présen¬ 
tés ne peuvent être réalisés que dans un but privé 
ou scientifique mais non commercial. Ces réserves 
concernent les logiciels publiés dans la revue. 


couverture: E.BURY 











EDITORIAL 


En ce début d’année fort perturbée par les grèves de ceux qui 
ne devraient jamais oublier qu'ils sont au service du public, no¬ 
tre principale préoccupation a été de faciliter les contacts avec 
nos lecteurs : un serveur sur le 3615 (code MHZ) permet de po¬ 
ser des questions à la rédaction et d'obtenir une réponse dans 
les 48 heures. Quant à tous ceux qui n’ont pas de MINITEL, il 
reste le téléphone ou le courrier pour obtenir une réponse aux 
questions. Utilisez au mieux toutes ces possibilités, qui vous 
sont offertes par THEORIC, afin de ne plus rester isolé dans un 
coin ! 


La Rédaction 



AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 

THEORIC ° 



COMMANDE ANCIENS NUMEROS 
(valable jusqu'à épuisement des stocks) 

Numéros 6 à 21 . 30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1.2.3.4.5.8.16. 

NOM .Prénom . 

Adresse . 

Code Postal .Ville .. 


Frais de port 


: 7,10F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00 F au dessus 


|Ci-joint, chèque bancaire ou postal de 














COURRIER 


-COMMENT ENVOYER 
UN PROGRAMMME 
ATHEORIC? 

Faudra-t-il le redire ? Oui ! Au vu 
du courrier nous posant cette ques¬ 
tion, et des envois "non confor¬ 
mes" que nous recevons, il semble 
nécessaire de rappeler ceci : 

-Tous les logiciels soumis pour 
examen doivent nous parvenir sur 
cassette ou disquette. Un listing 
seul ne suffit pas. 

- Un mode d'emploi est néces¬ 
saire : pensez à ceux qui vont tes¬ 
ter votre réalisation ! Si son fonc¬ 
tionnement n'est pas évident, le 
programme risque de finir aux où- 
bliettes. 

- Essayez, avant de les soumettre 
à la rédaction, vos programmes 
sous toutes leurs coutures ! 

• • • 

De J. P SUPPLISSON 
04100 MANOSQUE 

-Le Fer d'Amnukor de Norsoft 
existe-t-il réellement sur dis¬ 
quette ? 

- Pour ce genre de question, ayez 
la gentillesse de contacter directe¬ 
ment les éditeurs ou annonceurs. 
Nous avons été assaillis de deman¬ 
des, suite à la publication du banc 
d'essai du synthétiseur vocal TMPI, 
dans le genre : "quel est le reven¬ 
deur le plus proche de mon domi¬ 
cile ?". Dans ce cas, il vaut mieux in¬ 
terroger directement le fabricant 
ou, simplement, consulter les quel¬ 
ques publicités parues dans THEO- 
RIC. 


De David HERR 
42 ST- ETIENNE 


— Serait-il possible de coupler le 
Télestrat à un magnétoscope, de 
façon à mixer image vidéo et image 
Télestrat. Peut-on commander le 
magnétoscope à partir du Téles¬ 
trat ? 


— Les techniques d’incrustation vi¬ 
déo ne sont pas à la portée de l'ama¬ 
teur moyen. Il faut reconnaître qu'il 
est tentant de se servir au maximum 
des possibilités graphiques de l'O- 
RIC, mais là, on est un peu coincé ! 
Techniquement parlant, vos objec¬ 
tifs sont réalisables, mais l'élabo¬ 
ration de l'interface est complexe. 

Quant à la commande du magné¬ 
toscope par l'ordinateur, il faudrait 
savoir ce que vous désirez faire 
exactement... Seule la télécom¬ 
mande de pause est accessible faci¬ 
lement. Pour le reste, il faut, là en¬ 
core, réaliser une interface spéci¬ 
fique ! Si des lecteurs ont déjà tra¬ 
vaillé dans ce domaine, ils peuvent 
toujours se faire connaître ! 


De Charles TOCANIER 
31 SAINT-GAUDENS 

— Est-il possible d'intégrer un dis¬ 
que dur à mon système qui com¬ 
prend déjà un Jasmin 2 +. Si oui, 
comment ? Peut-on coupler à 
l'ORIC un clavier type "compatible 
PC" ou Apple ? 

Tout est envisageable... reste à sa¬ 
voir ce qu’il est judicieux de faire ou 
ne pas faire... Pour ajouter un dis¬ 
que dur à l'ORIC, il faudrait aussi 
coupler au système la carte "contrô¬ 
leur" pour ce disque dur, ce qui 
n'est pas aussi évident qu'il y 
paraît ! 

Pour le clavier, il faut voir en fonc¬ 
tion du modèle choisi. Nous n'envi¬ 
sageons pas de décrire dans THE- 
ORIC cette modification, car elle 
n'intéresserait vraisemblablement 
que peu de monde. 

• • • 

De Alain BITON 
56 MARCQ EN BAROEUL 


— Pour intéressant que fut l'article 
de Pierre Beaufils sur le Jasmin PC, 
je ne pense pas qu'il soit judicieux 
que THEORIC publie des articles 
sur la compatibilité PC. 

— Rassurez-vous, et vous n'êtes 
pas le seul à vous en être inquiété, 
THEORIC ne va pas changer... 
Nous voulions simplement nous 
faire l'écho des nouvelles activités 
de la société TR AN. Par contre, à 
tous ceux que les compatibles PC 
intéressent, nous avons le plaisir 


d'annoncer la naissance de notre 
nouvelle revue "PCompatibles Ma¬ 
gazine" dont le premier numéro sor¬ 
tira courant février 87. Dans le plus 
pur esprit de "THEORIC" ou de 
"CPC" (Amstrad), "PCompatibles 
Magazine" sera le lien entre tous 
les utilisateurs de ces machines : 
trucs et astuces* programmes, 
bancs d'essai, etc. 

• • • 

Mr Claude BRUN 
83 St CYR/MER 


— Comment dois-je m'y prendre 
pour faire rentrer un programme 
FORTHdans l'ATMOS ? 

— Le FORTH est un langage, au 
même titre que l'Assembleur. L'O¬ 
RIC ne connaît que le BASIC. Pour 
lui faire comprendre du FORTH ou 
de l'Assembleur, il faut posséder 
les cassettes (ou disquettes) corres¬ 
pondantes. Ces langages livrés sur 
supports magnétiques sont, en gé¬ 
néral, accompagnés d'un manuel 
d'utilisation, mais il va sans dire que 
l'on ne s'improvise pas program¬ 
meur FORTH ou Assembleur : il 
faut avoir lu auparavant quelques 
ouvrages (ou bons articles) sur le 
sujet. 

En conclusion, ne cherchez pas à 
saisir des listings FORTH si vous ne 
possédez pas ce langage ! 

• • • 

A propos de l'HYPER 
BASIC du TELESTRAT 


Annoncé avec un nombre considé¬ 
rable d'instructions, qui devait le pla¬ 
cer dans le peloton de tête des 
BASIC implantés sur ordinateurs 
familiaux, l’Hyper Basic s'est trouvé 
réduit tel une peau de chagrin ! 
Problèmes techniques ? Temps 
de développement sous-estimé ? 
Orientation différente ? Autant de 
questions dont les réponses res¬ 
tent en suspend. N'assurant plus la 
continuité dans la philosophie de 
programmation du BASIC ATMOS, 
l'Hyper Basic va obliger l'utilisateur à 
découvrir un nouveau langage... et 
à faire preuve d'astuce pour rem¬ 
placer les instructions absentes ô 
combien pratiques habituelle¬ 
ment ! 

Ajoutons à cela une documentation 
beaucoup trop succinte, fournie ac¬ 
tuellement avèc la machine, et tous 
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les ingrédients sont réunis pour 
faire émettre aux utilisateurs désem¬ 
parés un concert de protesta¬ 
tions... 

• • • 

MICRO -SERVEURS : 

FAITES L'ESSAI 

L'avantage de ces micro -serveurs 
est indéniable, quand ils sont utili¬ 
sés en local... L'addition se trouve 
considérablement allégée par rap¬ 
port aux serveurs sur 3615. Leur 
intérêt n'est pas toujours évident, 
pourtant on pourra y trouver quel¬ 
ques idées ou des renseigne¬ 
ments d'ordre divers. C'est pour¬ 
quoi nous vous livrons, pêle-mêle, 
quelques numéros à essayer vous 
même. 

- 75.37.48.83 dans l'Ardèche, un 
serveur mis au point par Orner GUI¬ 
CHET sur ATMOS + MS-TEL. 
-50.26.58.88 dans la Haute- 
Savoie. MESSTELde Nicolas FRA- 
NEK change de numéro et pro¬ 
pose ses services 24h/24 ! Il y a 
même des possibilités de téléchar¬ 
gement... 


— 73.30.90.81 dans le Puy-de- 
Dôme. "Micro City" de "Charly 3" 
avec un club d'utilisateurs, une 
cote des serveurs, etc. 

Du bon boulot ! 



oric Dans le tenere 

Un motard normand, Charles Henri 
HEDOUIN, a été sponsorisé par 
ORIC pour l'édition 87 du Paris- 
Dakar. Cette opération aura permis 
aux responsables de la marque de 
promouvoir leur produit sur la ré¬ 
gion normande, un serveur Téles- 
trat délivrant, pendant toute la cour¬ 
se, des informations sur ce sujet. 
Installé dans les locaux de l'usine, 
ce serveur avait pour but de démon¬ 
trer les possibilités télématiques du 
Télestrat. 


REMERCIEZ TOUS 
LE "SERVICE PUBLIC" ! 

Conséquences des grèves diver¬ 
ses qui ont perturbé ces services 
qui ne devraient jamais l'être, des re¬ 
tards dans l'acheminement de votre 
revue favorite, mais aussi (merci 
EDF !) un silence impressionnant 
lorsque vous avez tenté d'appeler 
la rédaction les mercredi 7 et ven¬ 
dredi 9... Le téléphone sonnait, 
certes, mais nous ne pouvions dé¬ 
crocher, les relais de "prise de li¬ 
gne" de notre standard étant privés 
de leur alimentation. 

Et si les usagers faisaient, eux, la 
grève des paiements ? 


Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise ! 


PROTEGEZ 
VOS R EVUES ! 


CPC Revu* standard Amstrad Schneider 

dossier classeur jean, logo et titre blanc 
Prix TTC port inclus s 74 F 
Abonnés : 51 F 



THEORIC, Revue des utilisateurs d'ORIC 

dossier classeur gris, logo titre rouge 
Prix TTC port inclus : 80 F 
Abonnés : 59 F 


MEGAHERTZ Magazine 

dossier classeur noir, logo et titre doré 
Prix TTC port inclus : 78 F 
Abonnés : 55 F 
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noisettes (volées, bien sûr...) en un 
temps record ! Et vous avez le 
choix entre la marche avant et la mar¬ 
che arrière. 

Tout ceci, vous le devrez à 10 com¬ 
mandes nouvelles et un auxiliaire 
de dessin et de gestion d'images. 
Les images sont accessibles à tout 
moment pour modification. L'utilisa¬ 
tion est aisée et le résultat specta¬ 
culaire. 


CLOVIS-1 pi classiques e2-e4 ou à l'aide des tou- 

BLEU-CIEL INFORMATIQUE ches de direction. Le joueur préfè- 

Echecs rera sans doute ce dernier. Disons 

également que les modifications de 
C'est toujours un plaisir de dé- configuration se passent ici très 

couvrir un nouvel adversaire aux bien, ce qui est loin d'être le cas 

échecs, fût-il informatique. Nous de- dans bien d'autres jeux, 
vrions dire deux adversaires, puis- Les acharnés trouveront le niveau 
que la synthèse vocale à géométrie de recherche un peu faible, ce qui 

variable nous offre deux voix diffé- signifie que les débutants et les 


Pierre TACONNET 


rentes à l’accent extra-terrestre. 
Jouer contre E.T. et son frère, voilà 
un défi ! 

Tout ce que l'on peut souhaiter 
rencontrer dans un tel jeu est pré¬ 
sent et d'accès facile grâce au me¬ 
nu bien conçu. Le choix de la cou¬ 
leur, bien sûr, ainsi que le niveau 


joueurs du dimanche seront ravis ! 
Que les premiers soient patients, 
qui dit CLOVIS-1 dit donc qu'un 
jour (prochain ?) tombera dans leur 
sabot un CLOVIS-2 plus pugnace. 


SYSTEM' ANIMATION 


ORDIELEC 

19, rue Hippolyte Flandrin 
69001 LYON 
Tél. 78.27.80.17 

n— a nL4 c x a AUf\r\ 







»\ ORIC HIPPIC 


V ous avez l'esprit joueur mais... vous n'aimez pas perdre 
d'argent : ce jeu est fait pour vous ! Pariez sur une 
course de chevaux sans risque de perdre autre chose 
que le capital initial offert par l'ordinateur. En jouant à plu¬ 
sieurs, ORIC HIPPIC vous distraira pour les soirées entre 
amis. 

ATTENTION ! Ecrit sur ATMOS, ce jeu ne peut pas fonction¬ 
ner avec un JASMIN. 

1 •============================= 

O ' 

3 'ORIC HIPPIC 

4 ' par A.DIVIALLE 

5 ' ================== =========== 

6 

7 E* = CHF:S (27) : EV*=E*-t-"B" : EJ$=E$+"C" : E 
BS=ES+"D":EMS=ES+"E" 

8 ECS=ES+"F":EB*=E*+"G":FC*=E*+"V" : PN 
S=ES+"P":DHS=ES+"J" 

10 AS=DH*+"** GRAND PRIX DE L'ORIC H 1 

IFPIC **":P0KE#30E,127 | 

20 PAPERO:CLS: PRINT:0C=(DEEK(#FFFA)=# 


Alain DIVIALLE 



r 
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22B ) :F'0KE#26A, 2 

29 * ============================== 

30 'INITIALISATION - PRESENTATION 

31 '============================== 

40 AD=#BA08: REF'EAT: READA: F'OKEAD, A: AD= 
AD+1:UNTILA=100 > 

50 DATAO,6,6,4,14,15,12,31 
52 DATAO,O,O,8,15,63,56,48 
54 DATA3,15,23,7,2,2,1,O 
56 DATA63,63,63,O,32,27,O,O 
58 DATA32,48,48,48,43,16,32,O 
60 DATA3,15,23,7,14,18,36,8 
62 DATA63,63,63,32,O,0,O,O 
64 DATA32,48,56,60,18,9,4,2 
66 DATAI,1,63,33,63,41,63,1 
68 DATA3, 15,23,7,3,2, 1, 1 
70 DATA63,63,63,32,32,16,16,16 
72 DATA32,48,56,52,20,20,20,36 
80 DATA100 

85 FORN=1T06: ZS=ES+CHRS(64+N) : FRINT ZS 
; A*: F'RINTZS; AS: F'RINT: F'RINT: NEXT 
90 T=0:AD=#B908:REPEAT:READA*:A=VAL(" 
#"-»-AS) 

95 POKEAD,A:T= T + A:AD=AD+1:UNTILA=#60 
100 P0KE#30E,192:IFT=5S21THEN135 
110 EXF'LODE: CLS: PR I NT " ERREUR DANS LES 
DATAS LIGNES 120 a 130" 

115 PR INT: F'RINT: FRI NT "VEUILLEZ VERIFI 
EF; ‘AVANT DE RELANCER LE JEU" : STOP 
120 DATAAO,O,AE,EA,BC,EO,49,FO,6,8E,E 
9,BC,8E,19,BF 

125 DAT ACB,B9,EA,BC,88,99,EA,BC,99,1A 
,BF,C8,CO,25,DO,FO 


130 DATAGE,OE,BD,8E,3E,BF, 60, O 

135 G0SUB2000 

140 DIMC(5) ,CA(5) ,X(5) ,C*(5) ,T(5) ,CC < 
300 ) 

150 CS(O)="JOYEUX NANARD": CS(1)~"MON 
GENERAL": CS(2)="BEBE CADUM" 

160 CS(3)="P'T I T FUTE": CS(4)="BONTE D 
IVI NE" : CS(5)~"LUC HILUCK" 

170 'ENTREE DES JOUEURS 

180 CLS:PAPER4: INK3: PR INT :G0SUB280O 

190 PR INT"COMBIEN ETES VOUS A VOULOIR 

FAIRE FOR-TUNE...<1'espoir est permis 
) " 

200 GETAS:A=VAL(AS) : I FA<1ORA>1OTHEN18 
O 

205 F'RINT: F’RINT 

210 NB=A-1 

220 FOR'N=OTONB: F'RINTEVS; "NOM DU JOUEU 
R Nr";N+1 ; 

225 I NF'UTNS (N) : IFLEN (NS (N) ) >9THENNS (N 
)=LEFT S(NS(N) ,9) 

230 FRINTEMS; "SALUT "; NS(N) ; ". ..ENCHA 
NTE" : S (N) =1000: F'RINT : NEXT 

240 CLS: PR INT" ÜK " : F'RINT: F'RINT" VOUS DI 
SF'OSEZ CHACUN DE 1000 Fr AU DEPART. 

Il 

250 F'RINT: PRINTECS; "A VOUS DE LES FAI 
RE FRUCTIFIER" 

252 F'RINT" EN MISANT JUDICIEUSEMENT S 
UR" 










CONTRE y 



254 F'RINTEC*; "UN" ;EJ*; "DES SIX CHEVAU 
X QU I COURENT. M : PR INT: PRINT : PR INT 
256 F'RINTEM*; "SEUL MEME ET VIEUX PRIN 
CIPE:": PRINT 

258 PR INT"PLUS LA COTE D'UN CHEVAL ES 
T ELEVEE," 

260 PRINT"MOINS IL A DE CHANCES DE GA 
GNER...MAIS" 

262 PR INT"PLUS IL PEUT RAPPORTER GROS 
S'IL GAGNE": PRI NT : PRI NT : PR INT 
264 PR INTE*; "GPRETS? alors appuyés su 
r une touche" 

266 REPEAT:A=RND(1>:UNTILKEY*<>"" 

270 CLS:PAPERO:INK6:G0SUB2900::F0RN=1 
TOI 1 : PR INT:NEXT 

272 A*=E*+"N VEUILLEZ PATIENTER":P 
R IN TA* : F’R I NT A* : F0RN= 1 T04 : PR INT : NEXT 
274 PRINTEV*;"LES JOCKEYS PASSENT A L 
A PESEE":PRINT 

276 PRINT"LA FIEVRE MONTE SUR LE CHAM 
P DE COURSES;" 

278 PRINT"ON FAIT LE COMPTE DES PARIS 
DU PMU," 

280 PR INT"ET LES PRONOSTIQUEURS S'ACT 
I VENT": PR INT:PRINT:B0SUB2900 
290 G0SUB2500 

299 '========================== 

300 'AFFICHAGE COTES 

305 A*=DH*+" VOICI LES COTES:" 

310 CLS:PAPER4: INK3: FORN= 1T09 : F'R INT : N 


320 PR I NT A* : F'R I NT A* : F'R I NT 
330 F'RINTEM*; "LES FAVORIS: " : GÜSUB360 
340 PRINT: F'RINTEV*; "PEUVENT SURF'RENDR 
E:”:G0SUB360 

350 PRINT: F'RINTEC*; "LES DELAISSES: " : G 
0SUB360:GOT05O0 

360 X=0:FORN—1T05:IFT(N)<T(X)THENX=N 
370 NEXT: T(X)=20 

380 Y =0:F0RN=5T0ÜSTEP-1:IFT(N)<T(Y)TH 
ENY=N 

390 NEXT:T(Y)=20 

400 F'R I KiT : PRINT" ";X+1 ;;C*(X); SPC< 


17-LEN( C*(X) )); 1.3+0.8*C(X) ; 

N" 

410 PRINT" ";Y+l;;C*(Y); SPC(17-LEN 
<C*(Y))); 1.3+0.8*C<Y>;" CONTRE UN" 

420 RETURN 

499 

500 'ENTREE MISES 

510 C=0: IF0CTHENF’0KE#26F , 8ELSEP0KE#27 
E,8 

515 F'0KE#26B, 22: P0KE#26C, 4: CLS 
520 F0RN=0T0NB:CJ <N)=9: IFS(N)=OTHENC= 
C+l:G0T0600 
525 GOSUB2800 

530 PRINTN*<N);" TU AS ";S(N);" FRANC 
S" 

540 F'RINT"SUR QUEL CHEVAL JOUES TU ?" 

:GETA*:A=VAL(A*) : IFA>0ANDA<7THEN560 
550 CLS:PING:G0T054G 

560 A=A-1 : CJ(N)=A:X=65+A:A*=E*+CHR*(6 
5+A ) +E* + " I " +F'N* : PR I NT A* ; " AB " ; F'C* 

562 F’R I NT A* ; " JKL " ; PC* ; E* ; " H " ; EM* ; A+1 
,C*(A),"OK." 

570 INF’UT"COMBIEN MISES TU" ; A* : A=VAL < 
A*):IFA=OTHENCLS:G0T0570 
580 IFA > S(N)THENPING:CLS:PRINTEM*;E*; 
"LDESÜLE,TU N'AS QUE ";S(N);" Fr":GOTO 
570 

590 S ( N ) =S ( N ) - A : M ( N ) =A : F’R I NT : F’R I NT " BI 
EN.J'AI PRIS NOTE":WAIT90:CLS 
600 NEXT 

610 IF0CTHENP0KE#26F,27ELSEP0KE#27E,2 
7 *" 

620 IFC=NB+1THENPRI NT"TERMI NE. . .PERSO 
NNE N'A PLUS DE SOUS":GOTO1160 
622 CLS: F’R INT: PRINT: PR INT "ACCROCHEZ V 
OUS A VOS BASKETS,LA COURSE" 

624 PRINT"VA BIENTOT COMMENCER":GOSUB 
2050 

630 'DESSIN TERRAIN DE COURSE 
640 CLS:PAPER2:INK4 

650 FORN=#BD10T04BEF0STEP40:POKEN,16: 
NEXT 

660 Y=9: FORN= 1 T06: F'LOTO, Y, N: FLOTO, Y+l 
,N :A* = STR*(N) :A*=RIGHT *(A*, 1) 

670 PL0T1,Y+l,A*:PL0T1,Y," ":Y=Y+2:NE 
XT 

680 F0RN=1T08:PRINT:NEXT 
690 P0KE4BCE8,9 : F'OKEttBF 18,9: FORN= 1T04 
:PRINTCHR*<130+N);"11IIIIII"; :NEXT 
700 F0RY=9T021:PL0T2,Y,9:PL0T3,Y," 
PL0T38,Y,CHR*(98):PRINT:NEXT:PRINT 
710 F0RN=1T04:PRINTCHR*(130+N) ; " I I I I I 
III";:NEXT:WAIT100 

720 IF0CTHENF'0KE#26F, 7ELSEP0KE427E, 7 
730 A*=DH*+"ATTENTI ON.LES CHEVAUX SOU 
S LES ORDRES" : CLS: PRINT: F’RINTA*; A* 

740 WAIT50: F0RN=1T05: F'ING: WAIT4D: NEXT 
750 Y=9: FORN= 1 T06: PL0T3, Y, " AB":F'L0T3 
,Y+l,"JKL":Y=Y+2:X(N-l)=3:NEXT 
760 WAIT150:SHOOT:CLS:A*=DH*+ER*+"C'E 
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ST PARTI ! " : PR I NT : F'R I NT A* : PR I NT A* 

770 IF0CTHENP0KE#26F,27ELSEP0KE#27E,2 

7 

775 FORN=OT05:X(N)=3:NEXT:WAIT50 
780 'COURSE 

790 P0KE#30E,127:FORT-OTOM 
800 '=========CHEVAUX BOUGENT 

810 CALL#B908 

820 IF OCTHEN CALL#FAFA ELSE CALLttFB1 
4 

830 V=10:F0RN=0T05:PLOTX(N) ,Y,"CDE": Y 
=Y+2:NEXT 

840 IF OCTHEN CALL#FB10 ELSE CALL#FB2 
A 

850 Y=10: FORN=OTQ5: PLOTX (N) , Y, "FGH" : Y 
=Y+2 :NEXT 

860 IF OCTHEN CALL#FAFA ELSE CALL#FB1 
4 

869 ' === = = ======= ============== 

870 'AVANCE CHEVAL 

880 CH=CC(T):Y=9+2*CH 

890 PLOTX<CH),Y,” AB":PLOTX(CH),Y+l, 
" FGH": X(CH)=X(CH)+1 
900 NEXT:P0KE#30E,192 

910 'AFFICHAGE ARRIVEE 

920 G0SUB2800:: WAIT100:CLS: PAPERO: INK 
3:PRINT 

930 F0RN=0T05:X=0:F0RT=0T05:IFX(T)>X( 
X)THENX=T 

940 NEXT:T(N)=X:X(X)=-l:NEXT 
'950 A*=DH*+EM*+"ARRIVEE"+E*+"H":PRINT 
" "; A*;SPC(15);EC*;"RAPPORTE" 

960 PRINT" "; A*;SPC(9);EV*;"COTE " 

;EC* ;"POUR lFr" 

980 PRINT: PR INT"********************* 
***************":PRINT 
990 F0RN=0T05:PRINTEB*;RIGHT*(STR* <N+ 
ï ) i 1 ) 5 

995 I FN=OTHENPR I NT " er " ; ELSEF'R I NT " em 
e " ; 

1000 C=T(N):A=1.3+(0.8*C(C)) 

1010 PRINTEM*; RIGHT*(STR*(C+1>,1);"-" 
;C* (C) ; SPC(14-LEN(C* <C))) ; 

1015 PRINTEV*;RIGHT*(STR*(A) ,3) ;"/I " 

; EC*; 

1020 IFN=0THENX=A*2:GOTO1050 
1030 IFN=1THENX=A*1.5:G0T01050 
1040 IFN=2THENX=0.8EL5EX=0 
1050 PRINTX:F0RT=0T05: IFCJ(T)=CTHENS( 
T)=S(T)+M(T)*X:S(T)=INT(S(T)) 

1060 NEXT:NEXT 

1070 PRINT:PRINT"******************** 
***-*************":PRINT 
1075 FORN=OTONB 

1080 PR INTEV*; N*(N) ; SPC <10-LEN(N*(N) > 

);"A MAINTENANT:"; S(N);"FRANCS" 

1090 NEXT N 

1095 G0SUB2500:G0SUB2900:G0SUB2800 


1100 PRINT:PRINT:PRINTEC*;E*;"LVoulez 
vous arrêter les frais?" 

1110 GETA*:IFA*="0"THEN1150 
1120 G0T0300 

1150 PRINT:PRINT:PRINT"ALORS BYE" 

1160 PRINT"J'AI VRAIMENT ETE CONTENT 
DE JOUER AVEC VOUS" 

1170 G0SUB2000: F'QKE#26A, 3 
1180 END 

2000 DOKEHBO,DEEK(#AC):G0T02100 
2010 DATAI,0.8,1,0.8,1,2,1,0.8,1,0.8, 
1,2,1,1,1,1,6,2,8,2,10,2 
2020 DATA1,0.8,1,0.8,1,2,1,0.8,1,0.8, 
1,2,1,0.8,10,1,8,2,5,2,1,2 
_ _2Ü30— DATA 1^.Û.a r l,CuB T 1 T 2 T 1,0.8 T 1,0.8 T 
1,2,1,1,1,1,6,2,8,2,10,2 
2040 DATA6,1,10,1,13,4,11,1,10,1,8, 1, 
6,2,10,2,6,2,0,0 
2050 DOKE#BO,DEEK(#AC>:G0T02100 
2060 DATA3,1.6,3,0.6,3,0.6,3,1.66,3,0 
.6,3,O.6,^,1.6,3,O.6,3,0.6,3,2,o,2 
2070 DAT Al0,2,7,1,10,2,7,1,10,2,7,1,1 
0,2,7,2,3,3,0,0 

2099 ' ======================= 

2100 'MUSIC 

2101 ' =========================== 

2110 X=4 :REPEAT: READN,T: IFN=0THEN2140 
2120 IFN=13THENN=1 : X = X + 1 : GQSUB2200: X«= 

X — 1 :GOT02140 
2130 GQSUB2200 
2140 UNTILN=0 
2150 RETURN 

2200 PLAY3,0,0,0:MUSIC1,X,N,12:MUSIC2 
,X-2,N,9:WAITT*7:PLAYO,0,0,0:RETURN 

.2500 ' COTE 

2510 F'0KE#30E, 127: T=0 

2520 FORN=OT05:C(N)=INT(RND(1)*11> :T( 
N) =C(N): X(N)=0 
2525 A=INT(C(N)/2> 

2530 CA(N)=30-A:T=T+CA(N):NEXT 

2535 REPEAT:C=INT(RND(1)*6):CA(C)=CA< 
C)+1 : T=T+1 :UNTILCA(C)=33 

2536 CA(C)=CA < C)—1:T=T—1 

2549 '========================== 

2550 'PROFIL COURSE 

2560 M=0:REPEAT 

2570 A=INT(RND(1)*6)aIFX(A)=CA(A)THEN 
2570 

2580 CC (M) =A: M=M+1 : X (A) =X (A)+1 

2590 UNTILM=T:CC(M)=C:M=M+1 

2600 F'0KE#30E ,192: G0SUB2800 : RETURN 

2800 PLAY1,0,7,600 

2810 F0RI=1T010:MUSIC1,3,1,0 

2815 F0RX=1T013:NEXT 

2820 NEXT:PLAYO,0,0,0 

2830- RETURN 

2900 FQRA=0T03: FORI=0TG7: PRINTCHR*( 14 
4+1); :NEXT:NEXT 

2905 F0RI=0T05:PRINTCHR*(144+1); :NEXT 
5726 RETURN 
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pour 


TABLEAU 


P Pour travailler efficacement sur ORIC, il est intéressant 
d'avoir sous la main quelques Interrupteurs ou boutons 
poussoirs permettant de disposer de commandes facile¬ 
ment accessibles 


BURNICHON D. 




1) Interrupteur Magnéto ON ou 
ASSERVI 

Un interrupteur en parallèle sur le 
contact du relais de commande du 
magnétophone est très pratique 
pour positonner la cassette ou 
rembobiner après chargement. 

2) Inverseur ORIC 1/ORIC ATMOS 
J'ai révisé les Théorie n° 2 - 3 - 5 et 6 
pour effectuer les modifications et 
installer 2 ROM sur chacun de mes 
deux ORIC. En effet, j'ai acheté un 


ORIC 1 d’occasion pour pouvoir 
duptiquer la ROM ORIC 1. 

Avecje schéma de Théorie n° 2 un 
des CS (chip select : sélection du 
boîtier) reste en l'air et ramasse un 
maximum de parasites, surtout si 
l’on installe l'interrupteur un peu 
loin. Il faut donc relier au + par l'inter- 
-médiaire de 2 résistances les CS, 
sinon les parasites sélectionnent 
les 2 ROM en même temps et 
plantent le micro. 


Pour équiper le second micro¬ 
ordinateur, de 2 ROM, j’ai préféré 
réinstaller un 74 LSOO en IC11. Il 
faut alors couper la piste qui relie A 
13 du bus adresse aux pattes 10 et 
12 de IC11. Seul un fil suffit en di¬ 
rection de l'interrupteur, l'autre plot 
de l'inter étant relié à une masse à 
proximité. Une résistante permet 
de fixer le potentiel des pattes 10 
et 12 lorsqu'elles restent en l'air. 
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Pour dupliquer la ROM, il faut se 
procurer des EPROM 27128 et 
trouver un possesseur de program¬ 
mateur qui vous aidera à dupliquer, 
peut-être à corriger le bug de la 


lorsque tout est planté. Le reset à 
froid ne devra pas être utilisé avec 
un lecteur de disquette car c'est le 
coupleur du lecteur qui gère ce 
signal. 


ORIC 



NB : Il faut 
toujours couper 
le pont LK 


dy 1— 

2k2 


IC11 


inter ORIC1 - ORIC ATMOS 



masse à proximité 
par exemple sur les 
boutons poussoirs 
des Reset. cf 3 


R 



Circuit imprimé 


version VI.1 (THEORIC n° 5 p 19) 
et pourquoi pas, personnaliser l'ins¬ 
cription de l’écran à la mise sous 
tension (@ 2DA9 et suivants sur la 
ROM, correspondant à EDA9 sur 
ATMOS) 

Mr ABRIC à 69 Villeurbanne, tél : 
78.24.54.09 réalise avec gentil¬ 
lesse et efficacité la duplication 
pour 50,00 F EPROM comprise 
(PORT en sus) - Publicité pour le 
remercier de son aide. 


3) LES RESET 

Le reset sous l'ORIC ne sera plus 
qu'un mauvais souvenir et l'adjonc¬ 
tion d'un reset à froid permettra 
d'éviter les mises hors tension 
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Claude GUILLOT 


e programme MUSIC a eu du succès : il est vrai que ce 
genre de logiciel, utilisant les possibilités sonores de 
l'ORIC, n'est pas souvent publié. Les lecteurs ont été 
nombreux à suggérer quelques modifications dont celle qui 
permettrait de charger un morceau sauvegardé auparavant. 


Il sera possible de charger un 
morceau, sauvegardé aupara¬ 
vant, pour pouvoir le modifier... 
à condition d'avoir changé les 
lignes 110 à 120 et d'avoir ajouté 
les lignes 1 945 et 6000 à 6240 
(cf. listing joint). 


A l'affichage du "logo” d'en¬ 
trée : "MUSIC UTILITAIRE DE 
CREATION", après les initialisa¬ 
tions et l'implàntation du langage 
machine, une question apparaît : 
"REPRISE D'UN MORCEAU 
DEJA ENREGISTRE 0/N" 


Répondre "O” si c'est le cas ! Le 
programme "MUSIC" (partie 
machine + morceau créé) devant 
être en place avant de charger le 
Basic. A la première utilisation, ou 
pour créer un autre morceau, 
répondre "N". 


Si la réponse est positive, après 
quelques instants de patience, le 
menu apparaît. (Dans ce cas, on 
ne passe plus par le mode d'em¬ 
ploi.) 


110 

112 

114 


1 la 
113 
12Ô 


GQSUB3100 ;GO8UB2560:GOSUE3500;0OKE#3©6.#271ô 
PLCTg, 24. "REPRISE D'UN MORCEAU" : PLOTS .'25. "DEJA ENREGISTRE Ü/N" :GETF$| 
IF F$="N" THEN DOKE#306.#FFFF: PLOTS.24,EF$: PLOTS.25.EF£:GOTÜ120 
IF F$="Q"THENIFDEEK(#8E0®)<478ANDPEEK(#8DFD)<16THEN6000 
PING:PLOT10.17."ERREUR":UAIT200:PLCT10,17,EF$:GOTul12 
GOSUE5000 :DQKE#306.#2710 :G0SUB2610 


4 Q ,1 e, 
1 " 


5 P0KE#8DFD,T :D0KE#SDFE. ) 


y I 


6 0 'd 0 

5005 

6010 

6020 

6033 

6040 

6053 

6360 

6073 

6380 

6083 

6103 

6113 

6123 

6130 

6143 

6153 

6160 

6170 

6180 


XL=DEEK(#SDFE):DM=#8E00:T=PEEK(#8DFD) : Q=0:DQKE#30£,#FFFF 
PL0T7,25. EF$ :PL0T6.24.12:PLOTS,25.12 

PL0T7.25.CHR$(2)+"MISE EN MEMOIRE": FOR1 = 1TOXL:A=0EEK(DM> 

IFA=0THENND$(Iî-"P" 

IFDEEK(DM+4)=0THENND$(I)="FIN": I = XL:G0T06213 
IFA=4770RA=2380RA=118THENND$(I)="D0" 

IFA=450ORA=225ORA=112THENND$(I)="DO#" 

IFA=4250RA=2120RA=106THENND*(I)="RE" 

IFA=401ORA=200ORA=100THENND$(I)="MIB" 

I FA=379GRA= 13 S 0 R A=8 4 T H E N N D $ ( I ) = " MI " * 

I FA=3570RA=1780RA=39THENND$(I)= "FA" 

IF A=3370RA=15S0RA=84THENND$(I)="FA#" 

IF A=3130R A=159QRA=79THENND$(I)="S0L" 

IF A=300ORA=150QRA=75THENND$(I)="S0L#" 

I FA=2840RA=1420RA=71THENNDS(I)="LA" 

I FA=2680RA=1340RA=67THENND$(I)="SIB" 
IFA=2530RA=1260RA=63THENND$(I)="SI" 

DM=DM+4:V=PEEK(DM) 

D% ( I)=-3*(T*8=V)-5*(T*4=V) -1% (T*2=V)-8*(T=V)-(T*16=V> 

IF D% (I)=0THEN D% (I)=-2*<T*8+T*4=V)-4*(T*4+T#2=V)-6#(T#2+T=V) 


Les opérations de listages, modi¬ 
fications... sont inchangées. 
Pour poursuivre la création, il fau¬ 
dra, bien sûr, utiliser l'insertion 
(mea culpa : ligne 480 : INSERER 
ne manque pas d'R !) 

... avec, comme limite, 100 notes 
à la fois (en repassant par le 
menu, ..., c'est reparti pour 100 
autres). 

J'espère avoir répondu à votre 
attente et me tiens à votre dispo¬ 
sition. 


6190 DM=DM+1: 0% (I)=-3*(A<126)-(A>238) 

6200 IF 0% (I)S0THENOX<I) =-4# (ND$(I)="P")-2*(A<253) 

NEXT :V=PEEK(#3014) 

IFDEEKf#8E00+Q)THENU=DEEK(#8E02+Q)/DEEK(#8E00+Q)ELSEQ=Q+1:GOTO6220 
TI=-2/3*(U<1)-1.9*(U>1.6): IFTI=0THENTI=-1.5*(U>1.4)-1.@2*(U<1.2) 
DOKE#306 ,#2710: GOTO 13.0# 


6210 

6223 

6233 


6240 








20, rue de Montreuil - 94300 VINCENNES - -S* (1 ) 43.28.22.06 

du mardi au vendredi :10h30à13h-15hà19h — le samedi : 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 


JASMIN 2 "+" 

Le lecteur de disquette que votre Oric préfère. 


Il ne lui manque que la parole”, synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu’un politicien en 
camnaqnp 1 

□ synthétiseur vocal . . . J»SÜ"f 240 F 


□ atmos 


□ lecteur double tète 


logiciel ORIC 1 exclusivement 

pour 2 titres : 145 F pour 3 titres : 195 F pour 4 titres : 220 F pour 5 titres : 250 F 


TELESTRAT 

La télématique à la portée de tous ! 

Puissant (64 K), doté d'un basic "costand" (plus de 250 
instructions), compatible ATMOS ou ORIC (par cartouche), 
accompagné d'un lecteur de disquette double tête (400 K) 
le TELESTRAT est déjà ainsi un ordinateur “top niveau” ! 
Ajoutez-y toutes les ressources télématiques qu'il est capable 
de gérer sans interface, câble ou logiciel supplémentaire puis¬ 
que le TELESTRAT est le seul ordinateur où toutes les fonc¬ 
tions “MINITEL" sont intégrées d’origine et vous comprendrez 
que le TELESTRAT c'est l'ordinateur de demain disponible 
dès aujourd'hui ! 


□ mushroom mania 

□ centipède 

□ gastronon 

□ oric munch 

□ facturation 

□ ultima zone 

□ pengoric 

□ finances 

□ copy écran (pour GP 100) 

□ calculus 

□ super break out 


□ jogger 

□ calorie 

□ le lièvre et la tortue 

□ le monde végétal 

□ hunchback 

□ la chenille infernale 

□ morpion 

□ dicodoric 

□ zig zag 

□ acheron's rage 

□ ice giant 


□ carnet d'adresses 

□ trace dump 

□ black base 

□ onc gestion 

□ oric mind 

□ yam 

□ guerre des couleurs 

□ gencar 

□ ciros 

□ fromage 

□ caractor 


MODEM 

Votre ORIC s'ouvre sur l’extérieur. Il "discute' 
avec ses semblables et accède au réseau “minitel" 
Fourni avec interface intégrée et logiciel 
□ modem DIGITELEC 1 


□ TELESTRAT 


LOGICIELS CASSETTE 


□ souris 


140 F 1 -ETmeurtre gde vitesse 
110 F □ mission delta 
100 F □ moniteur 1.0. . . . 
145 F □ mots croisés . . 

140 F □ nessy. 

130 F Doric base. 

120 F □ orthocrack vol 1 . 

120 F □ orthocrack vol. 2 . . 

. 95 F □ orthocrack vol. 3 . . 

130 F □ outimatic 1. 

145 F □ pasta blasta . . . . 

250 F Drabbit . 

+2G-F □ A.T.M. 

1 in C i I n nlirFirhirr _ 

I ou r i—) puiyiicnicT ..... 

100 F □ r.d.v. de la terreur 

180 F □ rat splat. 

125 F □ reverse. 

150 F Dsaga. 

99 F □ Stanley. 

180 F □ star. 

140 F □ starter 3 d. 

120 F □ stresse. 

120 F □ super jeep. 

185 F □ System' animation 

160 F □ teknis. 

120 F □ tendre poulet . 

140 F □ terminus. 

120 F □ the hobbit. 

165 F □ tic tac. 

160 F □ tortue logic. 

140 F □ triathlon. 

. 95 F □ ultima zone. 

125 F □ une affaire en or . . 

295 F □ vision. 

290 F □ vortext. 

395 F □ waydor. 

160 F □ world war 3 . . 

250 F □ xénon 1. 

125 F □ xénon 3. 


i nn r 1 i -I-— _ 

I DU I I_I UUoolCI y. 

140 F □ dracula s revenge 
140 F □ elephorm/color. . 

165 F Délysée. 

120 F □ flipper. 

150 F □ formule 1. 

250 F □ frelon. 

12 B-F Dfrigate comm.. . 

1 -4 0 f- □ fromage. 

120 F □ gest (gest. banc.). 
T 4 0 f □ gestio de stock . 
120 F □ hades. 


□ cartouche ROMATMOS 


□ 3 dfongus . 

□ 3 d munch . . . 
□add-sous . . . . 

□ annuaire . . . . 

□ ass. symbol. . 

□ assimil (anglais) 


□ moniteur couleur 


□ cartouche ROMORIC 1 


□ basic étendu 


Interface tous jeux 

Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux 360 f 


□ bibliofiches . 

□ doggy . 

□ brique à brac 

□ le fer d'amukor . 

□ locus. 

□ businessman 

□ calcul mental. 

□ canni bail. 

□ carmaniac . . 

□ montsegur ... 

□ mission impossible 
Ll callenger 

□ citadelle 

□ clavidact . 

□ clovis 1 (échecs) 

□ cobra. 


TIRVITT 2 

Esthétique, robuste, pratique le TIRVITT 2 vous séduira ! 
Contacts par micro-switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVITT 2 .150 F 


-H H B - 


images (d.a.o.). 

□ insect insanity. 

□ intox et zoé. 

□ | apprends l'anglais. . . 
I I Rapprends la c.a.o. . 

1 karaté . 

l'aigle d'or. 

□ la cité maudite . . 

□ la flûte inca. 

□ notwik puzzle. 

□ tyrann. 

□ le diam. île maud 

□ le général . 

□ le mand. dr gemus . 

□ le millionnaire .... 

□ le minotaure. 

□ retour dr genius 

□ le secret du tomb. . . 

□ le trésor du pirate 

□ lissage. 

□ logo vl o.. . 

□ lorigraph. 

□ loritel. 

□ macadam bumper . . 

□ master paint. 

□ math-sam (math.prim.) 

□ méfies-toi de méphisto 


Rallonge Péritel ^ 

Ne soyez plus “collé" à l'écran 
□ rallonge péritel. 


Interrupteur 

Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 


□ colorie. 

□ colossal adventure . . . 

□ compilateur graphique 

□ crypt show. 

□ dam buster. 

□ damsel in distress 

□ dedal. 

□ dialogue. 

□ digger. 

□ dit ?d'ac ! (sc. nat. 5 e ). 

□ dit ? d'ac ! (sys. aut.). . 

□ don juan et drageurs . 


Le "must" pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
"top niveau" des résultats obtenus, (ex. options : faire 
des points, traits, boîtes, cercles.texte, remplir, "zoom"....) 
□ graphiscop. 990 F 


LIVRES 


□ guide pratique oric 1. 

□ prog. pour oric 1 . . . 

□ la prog. jeux aventure 

□ la conduite de l'oric . 

□ apprenez élec.sur oric 


□ interfaces pour oric. ... 59 F 

□ l'oric à nu.151F 

□ guide pratique atmos 78.50 F 

□ programme pour oric 1. . 85 F 

□ boîte à outils pour oric ..35F 

□ jeux en basic sur atmos . 49 F 

□ 56 prog. pour oric . ... 78 F 


□ l'oric à l'affiche. . . . 

□ prog. en lang. mach. . 

□ mieux prog. sur oric . 

□ applications du 6502 

□ manuel réf. t2 . . . 

□ manuel de réf. tl. . . 

□ t-dos et ses fichiers 


Imprimante CITIZEN 1200 

120 CPS - matrice 9x9- traction ou friction - jusqu'à 
3 ex. compatible EBSON - garantie 2 ans - interface cen¬ 
trons intégrée 

□ imprimante CITIZEN 120 0 . 2490 F 


INTERFACE T.V. 


□ joystick compétition PRO. 
U bloc alim URIC 

n alim 12 V pour péritel 

□ rallong de bus 1 slot ... 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée DIN ou Jack. Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone 360 F 


Cette interface va cous permettre de transformer votre moniteur couleur en T.V. 
□ interface T.V. 


Imprimante Smith Corona Fastext 80 
- 80 caract./sec.. impression bidirectionnelle, 
entraînement par friction, interf. contronic. buffer 
intégré, écriture normale ou condensée 
□ imprimante fastext 80 . J£9TJF 14 


Cassettes vierges C20 

□ les 5. 

□ les 10. 

□ disquette vierge 3 pouces 


□ câble imprimante 

□ stylos pour MCP40 


Cette interface vous permet de laisser brancher en per 
manence trois appareils utilisant la prise péritel. 

□ interface multipéri. 750 F 


□ ATMOS 


COMMENT COMMANDER : Je P° ss ^ e 
- Cocher lels) article(s) désiré(s) ou fartes-en une liste sur une feuille à part. - Faites le total + frais de port {20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour tout achat supérieur à 1000 F). 

NOM : _ PRÉNOM :_ TEL. :_ 

ADRESSE : _ CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) __ 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES réseau ll-l:l-l^£ll 





































































































































MODIFICATION DE 

DATA 


Patrice GUERRIN 


U n programme, aussi performant soit-il, peut toujours 
être amélioré, voire adapté à un besoin particulier. 
DATA+ n'a pas échappé à la règle puisque son auteur 
suggère ces quelques modifications. 



Comme vous le savez, DATA + 
est un programme de numérota¬ 
tion automatique, de sortie du 
mot DATA et des virgules auto¬ 
matique. 

Voici quelques "poke" judicieu¬ 
sement placés qui vont vous évi¬ 
ter de taper sur RETURN à cha¬ 
que fin de ligne. Tout d'abord, il 
faut entrer le nombre de datas par 
ligne. Soit DTA ce nombre. 
Faites POKE #9499,3 X DTA et 
POKE #9510, 3 X DTA 
Pourquoi multiplier le nombre de 
datas par 3 ? Tout simplement 
parce qu'une valeur comprend 2 
chiffres + 1 virgule, ce qui fait 
3 caractères. 

Faites ensuite : 

POKE # 94A2, # 4C 
DOKE # 94A3,# 94C1 
A partir de maintenant, lorsque 
vous aurez tapé x datas, le pro¬ 
gramme ira directement à la ligne. 
Pour que votre programme aille 
directement à la ligne et émette 
un PING (ce qui, entre nous, est 
pratique de savoir que l'on est à 
la ligne). 

Faites POKE # 94A5, # 4C, 

DOKE # 94A6, # 94C1 
Et n'oubliez pas de mettre le 
nombre de datas multiplié par 3 
en #9499 et #9510. 

Vous pouvez mettre jusqu'à 85 
octets par ligne. 

Si, par exemple, vous êtes à la 
ligne 100 et que vous constatez 
que vous avez fait une erreur en 
ligne 95, vous appuyez sur ESC, 
et le programme revient en ligne 
95. Mais attention, lorsque vous 


listerez votre programme, il y 
aura 2 lignes 95. Il conviendra 
donc de faire 95 (return). 

Cela enlèvera la ligne où vous 
avez fait votre erreur. 

Pour appuyer sur la touche FIN, 
il faut être obligatoirement à la 
ligne. 

Si vous ne voulez pas copier de 
chiffres, mais plutôt des chaînes 
de caractères, tapez : 

FOR 1= #9489 TO #9494: 
POKE I, # EA : NEXT 
Cela enlève les virgules, et vous 
permet de rentrer n'importe 
quelle séquence de caractères 
dans une ligne. Appréciable, 
non ! 

Si vous voulez avoir un espape 
entre DA.TA et les chiffres, 
tapez : 

POKE #9448, #20 

POKE# 9449, #95D7 

FOR I = # 95D7 TO # 95E4:READ 

A$:NEXT 

POKE l,VAL(# + A$):NEXT 
DATA A9,41,20,D9,CC,A9,20, 
20,D9,CC,EE,04,00,60 
Pour ORIC-1., changez D9 par 12. 
Si vous tenez absolument à 
copier la somme de contrôle, 
vous pouvez la copier dans les 
datas. Exemple : si la somme est 
# C000, vous la rentrerez comme 
cela : CO,00. 

Mais il va falloir modifier le char¬ 
geur. Voici un exemple de char¬ 
geur de 1 6 datas et de la somme 
que vous copierez juste après. 
10 A = #4000: F = #4300:L = 

100:REPEAT:FOR A = A TO 
A + 1 5:READ C$ 


20 E = VAL("#'' + C$):POKE l,E: 
NEXT 

30 READ PI $: POKE O,VAL 
(''#" + PI $):READ P2$:POKE 1, 
VAL(" #" + P2$) 

40 IFS < > DEEK(O) THEN 
?"ERREUR LIGNE:";L:EDIT L 
50 L = L + 5: UNTIL A> =F 

Voici la dernière modification de 
DATA +. Après, je ne pourrai 
plus rien faire pour vous faciliter 
la tache. Cette modification va 
faire le DOKEO, DEEK (#9C)) - 
2 en langage machine, car on 
s'aperçoit très vite que cette ins¬ 
truction est répétitive et rébarba¬ 
tive a taper. Chargez DATA +, 
copiez le listing, faites RUN, et 
tapez CSAVE"DATA +”, 
A#93AC, E#9625. Pour com¬ 
mencer, il n'y aura plus qu'a 
taper CALL#93AC, (a,b) à cha¬ 
que fois, et votre liste de datas 
sera mise a la suite du program¬ 
me déjà en mémoire. Voilà, 
c'est tout ! 

Compatible ORIC 1/ATMOS 
10 FORI = #93AC TO#93FF: 
READA$:POKEI,VAL 
("#"+A$): NEXT 
20 DATA 38, A5, 9C, E9, 02, 

85, 00, A5.9D, E9, 00, 85, 01, 

A9,11,8D, 80, BB, A9, 00 
30 DATA 8D, 81, BB, A9, OC, 

8D, 82, BB, A2, 00, BD, D8, 93, 
C9, 00, FO, 2D, 9D, 83, BB 
40 DATA E8, 4C, CA, 93, 20, 
44,20,41,20,20,54, 20,41, 

20, 2B, 20, 20, 28,43,29 
50 DATA 20, 20,50,2E, 20, 
47,55,45,52,52,49, 4E, 20, 

2D, 20,31,39,38,36, 20 
60 DATA2D, 20, 00, EA, EA, 

EA, EA, EA 
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lui permettra d'adapter facilement, à son matériel, les programmes 


publiés dans THEORIC. 

III. SEDORIC - FTDOS - APPLICATIONS 
1- Comparaison des instructions, équivalences 


TABLEAU SYNOPTIQUE DES INSTRUCTIONS 


SEDORIC 

DESIGNATION ET COMMENTAIRES 

FTDOS 3.2 

DIRT 

Catalogue de la disquette. Variantes pour SEDORIC 

ICAP' " 

LOAD"NF 
(Aen ,V,J,N) 

Chargement du fichier (à l'adresse voulue). 

Variantes pour SEDORIC 

LOAD-NF" 

(AD) 

-NF" 

(Aen ,V,J,N) 

Chargement suivi d'exécution. 

Variante et adresse pour SEDORIC 

!"NF" 

SEARCH"NFA" 

Vérifie l'existence d'un fichier sur la disquette. Nom ambigu possible pour 
SEDORIC. Attention à ERROR pour FTDOS 

!SEARCH"NF" 

SAVE"NF" 

(Aen, Een) 

(Ten, AUTO) 

Sauvegarde des fichiers. PourSEDORIC, l'adresse d'exécution (Ten) 
peut être différente de celle du début (Aen). Trois options pour SEDORIC 
(0, M, U) 

!SAVE"NF 
(AD, AF) 

Néant 

Transfert d'un fichier de cassette à disquette. Pour le SEDORIC, il n'en est 
pas question à cause d'un défaut du HARD 

!"TKD” 

ESAVE"NF" 

Sauvegarde écran-texte et (ou HIRES) 

!LSCR''NF" 

!HSCR"NF" 

LOAD"NF” 

(.EXT) 

Chargement d'un écran. Attention au mode TEXT ou HIRES 

!LOAD"NF. 

SCR" 

DEL"NFA” 

DEL 

Effacement d'un fichier ou plusieurs ou tout pour SEDORIC (après 
confirmation) 

!DEL"NF. 

EXT" 
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DESTROY 

M N FA" 

Fonctionne comme DEL mais sans demande de confirmation. 

Dangereux ! 

néant 

DELBAK 

Détruit tous les fichiers d'extension .BAK. Pour FTDOS pas de BAK-pas 
de DELBAK 

néant 

REN"NFA a " 

TO"NFA n ” 

Changement du nom d'un fichier ou des fichiers pour SEDORIC car le 
nom ambigu possible avec les messages d'erreurs 

IRENAME 

"NFA^NFB" 

STATUS"NF” 

(Aen.Ten, 

AUTO) 

Modifie le statut du fichier fixé par SAVE. 

Pour FTDOS pas de statuts 

néant 

PROT"NFA" 

Protection contre écrasement ou effacement. Pour 

SEDORIC nom ambigu possible 

!LOCK"NF'' 

UNPROT"NFA" 

Déprotection. Nécessaire pour un nouvel enregistrement 

!UNLOCK"NF" 

LOA D" N F", J 
MERGE'*NF” 

(,L) 

Chaînage d’un fichier basic à un autre déjà en mémoire. Les numéros des 
lignes doivent être cohérents 

!MERGE'*NF 

DELETE 

(en1)-(en2) 

Efface les lignes du programme du numéro N à la fin, (ou en 2 pour SEDO¬ 
RIC). Nécessaire pour le IMERGE, mais pas vraiment une commande DOS 

ICUTN 

ERRSET 

Empêche les interruptions en cas d'erreur du DOS. 

Pour SEDORIC arrêt si ON ERR GOTO non spécifié 

IERSET 

ERROFR 

Autorise interruptions et impressions des messages 
d'erreurs 

IEROFF 

ERRGOTO 
n° ligne 

A utiliser avec (et après !) ERRSET ou IERSET. Indique le numéro de 
ligne qui sera exécutée en cas d'erreur du DOS (pour SEDORIC ERRSET 
annule ERRGOTO)! 

!ERR GOTO 
n° ligne 

inutile 

Création d’un fichier séquentiel. Pour SEDORIC création automatique par 
OPEN si la fiche n'existe pas 

1CREATE 

"NF,S=NLU" 

OPENS.NF.NL 

Ouverture d'un fichier séquentiel en lui associant un numéro logique : 1 à 

255 FTDOS, 0 à 63 SEDORIC 

IOPEN 

"NF=NLU" 

CLOSE (NL. 

(NI—» 

Ferme le fichier du numéro précisé et pour SEDORIC les numéros ou 
l'ensemble si aucun numéro spécifié 

ICLOSENLU 

PUTNL 

liste 

Ecrit des variables dans le fichier spécifié ; l'utilisation des : REM ou ’ pour 

ATM OS est très contestable 

.'WRITE NLU: 
REM liste 

TAKE NL 
liste 

Lit les variables du fichier séquentiel spécifié. 

Même remarque que ci-dessus 

ITAKE NLU : 

REM liste 

APPENDNL 

Place le pointeur en fin du fichier spécifié 

ÎAPNDNLU 

REWINDNL 

Place le pointeur en début du fichier. Attention : !OPEN NLU laisse le 
pointeur à l'enregistrement en cours 

IREWIND NLU 

JUMP NL, NE 

Déplace le pointeur du fichier du nombre d'enregistrements spécifiés. 

Saut en avant uniquement 

IJUMPNLU, 

NI 

BUILD NL 

Saisi du fichier sous forme de caractères frappés au clavier. 

Très pratique ! 

néant 
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TYPE NL 

Affiche le contenu du fichier. Un vrai dump ! 

néant 

LTYPE NL 

Même commande que TYPE NL, mais sortie sur l'imprimante 

néant 

& (NL) 

Test fin fichier 

IAPNDNLU 

IWHERENLU 

& (-NL) 

Donne le type du prochain enregistrement à lire 

néant 

inutile 

Création d'un fichier à accès direct de longueur et nombre 
d'enregistrements indiqués en lui associant un numéro logique 

ICREATE 
"NF, D = NLU, 

LR , NE" 

OPEN R, 

(NF.NL) 

Différence : IOPEN ouvre le fichier déjà créé, OPEN R ouvre ou crée un 
fichier mais il s'agit cette fois-ci du nombre et de la longueur des fiches. La 
longueur de ce fichier n'est pas définitive 

IOPEN 
"NF = NLU 

CLOSE 
(NL, (NL... )) 

Même signification que pour les fichiers séquentiels 

(CLOSE NLU 

PUTNLN 0 

Ecriture dans un fichier direct à l'enregistrement indiqué. FTDOS travaille 
sur les variables, SEDORIC sur le buffer 

(WRITE NLU, 
E:REM liste 

TAKE NLN° 

: 

Lecture de l'enregistrement indiqué d'un fichier à accès direct 

(TAKE NLU, 
E:REM liste 

FIELDNL, 

NCTO type 
$en,%, R, 0 

Définit les champs à l'intérieur du tampon. Ceci est indispensable pour le 
transfert des variables dans celui-ci 

Inutile 

RSETNC< 

Expression 

Ecrit les variables dans les champs du buffer. Pour les variables 
alphanumériques, la justification à droite 

inutile 

LS ET NC < 
Expression 

La même chose avec la justification à gauche 

Inutile 

NC > 
variable 

Opération inverse - Transfert d'un champ dans la variable 

inutile 

& (NL) 

Affiche le nombre des fiches du fichier spécifié. 

Deux commandes nécessaires pour FTDOS 

(APNDLNU 

(WHERENLU 

Néant 

Protège un fichier .DAT contre écriture normale (mais pas contre !DEL 
etc) 

!WL NLU 

Néant 

Déprotège le fichier dans le même sens 

(WUL NLU 

Néant 

Dommage 

Sauvegarde d'une matrice (un tableau) dans un fichier. 

Attention, tous les éléments (y compris élément 0) doivent être déjà 
définis en mémoire centrale. Dans le cas des tableaux alphanumériques la 
longueur de la chaîne doit être celle qui sera stockée sur fichier 

(MSAVE 

"NF = TABLEAU" 

Néant 

Transfert du fichier dans le tableau. Même remarque que ci-dessus 

(MLOAD "NF = 
TABLEAU" 

OPEND.NL 

Réserve un tampon pour écriture/lecture des secteurs 

inutile 

CLOSE (NL, 
(NL...)) 

Libère le numéro logique du tampon 

Inutile 
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PUTNL, 

Piste, 

Secteur 

Ecrit le secteur. Pour SEDORIC transfert du tampon, pour FTDOS d'un 
bloc avec tous les paramètres mis au préalable par "POKE" et "DOKE" en 
page 4 

!WS 

TAKE NL, P, S 

Opération inverse 

1RS 

VoirPMAPet 

CRESEC 

Recherche du premier secteur libre. Réponse en page 4 

IFS 

VoirFRSEC 

Efface secteur, mettre paramètre en page 4 

!DS 

PMAP 

Lit en mémoire le BIT MAP, d'où connaissance des secteurs libres 

voir IFS 

SMAP 

Ecrit sur la disquette le BIT MAP en mémoire. 

Attention aux opérations effectuées entre temps 

néant 

CRESEC 

Retourne dans les variables FP et FS l'adresse de la piste et du secteur 
d'un secteur libre 

Voir IFS 

FRSEC P, S 

Libère le secteur désigné de la piste indiquée. 

Attention au BIT MAP. 

■--- 

Voir IDS 

Le "inutile" sous-entend que c'est inutile pour la manière choisie par FTDOS ou SEDORIC 




V ous avez suivi les conseils prodigués par le programme 
"DIETETIQUE" de Gilles BOUSSARD ? Surveillez-en les 
effets, grâce à ce petit programme qui sera obligatoi¬ 
rement associé à votre module de recopie d'écran préféré. 


Si votre programme doit être mis 
sur disquette (ici Jasmin), respec¬ 
tez les règles ci-dessous. 


MODE D'EMPLOI 
PROGRAMME POIDS 

1 ) Entrez le programme de lance¬ 


ment, ici "A.BAS” si on désire un 
démarrage automatique après un 
boot. 

2) Assurez-vous que votre dis¬ 
quette contient bien votre pro¬ 
gramme de recopie HIRES en lan¬ 
gage machine. Indiquez bien son 
nom ligne 260 et son adresse de 
démarrage ligne 820. 

3) Le poids de base qui vous est 
demandé est le premier poids en 
ordonnée, le programme en affi¬ 
che 5. 

Exemple : 

Poids de base choisi = 60 
Incrément de poids = 2 
On obtiendra : 60, 62, 64, 66, 
68 . 


PROGRAMME 
COURBE DE POIDS 

Ce programme effectue la saisie 
des pesées et l'affichage sur 
écran HIRES des courbes de 
poids. 
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EXPLICATIONS PAR LIGNES 

Lignes 220 - 230 

Redéfinition du pour mar¬ 

quage des points par une croix. 

Lignes 240 - 250 

Recherche de l'année. 

Ligne 260 

Chargement du programme de 
recopie HIRES de votre impri¬ 
mante (ici "STAR.BIN'' pour 
imprimante type STAR Delta 10). 
Lignes 280 - 310 
Définition des repères d'abscisse. 
Ligne 330 

Dimensionnement du tableau des 
pesées : 5 dimensions et 24 
pesées + 1 (0) réservée aux 
valeurs de base. 

0 : jour 

1 : mois 

2 : poids 

3 : X (abscisse HIRES) 

4 : Y (ordonnées HIRES) 

Valeur de la première ligne 
PP(n,0) : PP(0,0) = BASE (poids 
de référence), PP(1,0) = DP 
(incrément du poids en V). 
Lignes 350 - 360 

Entrée du nom pour recherche du 
tableau sur la disquette. 

Ligne 410 

Initialisation des premières lignes. 
Lignes 430 - 470 
Pourquoi faire simple lorsqu'on 
peut faire compliqué ? On définit 
ici le nombre de pixels par jour 
(XJ), par mois de 30 jours (MO), 
par mois de 31 jours (Ml), et 


pour février (MF). 

Une telle précision n'était pas 
nécessaire ici, on aurait pu pren¬ 
dre des mois égaux de 30 jours. 
Ceci est donc un exercice de 
style qui pourrait être intéressant 
pour une autre application. 
Lignes 500 - 780 
Programme principal 
Lignes 800 - 840 
Appel du programme de recopie 
HIRES (ici implanté en £7200). 
Lignes 1000 - 1090 
Recheche et chargement du 
fichier. Si pas de fichier, on force 
Le drapeau "FLAG" = 1. Sinon, 
on charge et on confirme 
"FLAG” = 0. 

Lignes 2000 - 2810 
Tracé des axes et repères carté¬ 
siens. 

Ligne 2090 

Si pas de fichier on va directe¬ 


ment sur la saisie des valeurs. 

Lignes 3000 - 3530 

Tracé du nom et de l'année. 

Lignes 4000 - 4090 

Recherche de la taille du tableau. 

Lignes 5000 - 5090 

On trace les valeurs du poids. 

Lignes 6000 - 6120 

On relie les points par un pointillé. 

Lignes 7000 - 7250 

Saisie des pesées. Si pas de 

fichier, on entre le poids de base 

et l'incrément du poids, puis on 

retourne au tracé des axes (lignes 

7050-7090). 

Lignes 8000 - 8050 
Sauvegarde sur disquette. 
Lignes 9000 - 9550 
Listing vidéo et imprimante du 
tableau des poids. 

Bonne copie, et surveillez votre 
ligne... 
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Y 210 ' GOSUB 50000 'TITRE 
' 220 F0RW=0T07 : READQ : F’0KE#B400+8*ASC ( " 
&")+W,Q:NEXT 

230 DATA 0,34,20,8,20,34,0,0 
240 ! QFEN" ANNEEF'Û 1 = 1" 

250 AN*="": !TAKE 1,1'AN*: ! CLOSE 1 
260 !LQAD"STAR.B IN" 

270 DIMD*(12),C<11),X<12) 

280 F0RQ=0T011 :READD*(Q) 

290 C(Q)=ASC ( D*(Q)) 

300 NEXT 

310 DAT AJ,F,M,A,M,J,J,A,S,0,N,D 

320 ' 

330 DI MFP(4,59) 

340 ' 

350 CLS:PRINT:FR INT: INPUT"NOM: " ; NO* 
360 FI*="POI"+RIGHT*(AN*,2)+LEFT*(NO* 
3)+".ARY" 

370 ' 

380 ' 

400 ' 

410 F0RI=0TQ3:FQRQ=0T04:PP(Q,I)=0:NEX 
T:NEXT 

420 ' 

430 XJ=0.572602274:M0=17.1780822:Ml=l 
7.7506849:MF=16.0328767 
440 X0=25:X1=X0+M1:X2=X1+MF:X3=X2+M1: 
X4=X3+M0:X5=X4+M1 

450 X6=X5+M0:X7=X6+M1:X8=X7+M1:X9=X8+ 
MO:XA=X9+M1 :XB=XA+MO: XC=XB+M1 
460 X (0) =X0: X ( 1 ) =X 1 : X (2) =X2: X (3) =X3: X 
(4) =X4: X (5) =X5: X (6) =X6: X(7)=X7 
470 X(8)=X8: X(9)=X9:X(10)=XA:X(11)=XB 
: X(12)=XC 
480 ' 

490 ' 

500 REM 


510 GQSUB 1000 
520 GOSUB 2000 
530 GOSUB 3000 
540 GOSUB 4000 
550 GOSUB 5000 
560 GOSUB 6000 


CHARGEMENT DU FICHIER 
'TRACE DES AXES 
TRACE DU NOM ET ANNEE 
RECHERCHE TAILLE 
TRACE DES VALEURS 
TRACE DES TRAITS 


570 ' 

580 ' 

600 CLS: F'RINT : F'R INT "COPIE (0/N) 

GETR* 

610 IFR*= "0"THENG0SUB800 
620 CLS:PRINT:PRINT"VALEURS A ENTRER 
(0/N) ?:";:GETR* 

630 IFR*="N"THEN 710 
635 I FR* ,>"O"THEN630 

640 GOSUB 7000 'SAISIE DES VALEURS 
650 GOSUB 5000 'TRACE DES VALEURS 


660 CLS: PRINT: F'RINT" AUTRE VALEUR (0/ 

) ? : ": :GETR* 

670 I FR*= " O " THEN640 
675 IFR*O"N"THEN66Û 

680 GOSUB 8000 SAUVEGARDE FICHIER 
690 CLS: PRINT : PRINT"COPIE (0/N) ?:"; 
GETR* 

680 GOSUB 8000 'SAUVEGARDE FICHIER 
690 CLS:PRINT:PRINT"COPIE (0/N) ?:"; 
GETR* 

700 IFR*="0"THENG0SUB800 
705 IFR* <>"N"THEN690 

710 CLS:PRINT:PR INT"LISTE DES FESEES 
(0/N)?" ; :GETR* 

720 IF R*="O"THENG0SUB9000:G0T0750 
730 IFR*O"N"THENPING:CLS:G0T071O 

740 ' 

750 CLS:PRINT:FRINT"AUTRE NOM (0/N) 

: "; :GETR* 

760 IF R*="O"THEN 350 

770 IFR*<>"N"THEN 750 

780 TEXT:CLS: ICLOSEO: ! CAT"":END 

790 ' 

800 REM 

810 LPRINT : LPRINT iLF'RINT 

820 CALL#7200 ’ F'ROG IMPRIMANTE 

830 LFR I NT :LPRI NT :LPRI NT 

840 RETURN 

850 ' 

860 ' 

1000 REM 

1010 ' CHARGEMENT FICHIER 

1020 ' - 

1030 ' 

1040 !ERSET 
1050 !SEARCH FI* 

1060 IF PEEK(#489)=7THENZAP:PRINT"PA! 



! ERSET 
'SEARCH FI* 

IF PEEK(#489)=7THENZAP:PRINT"PAS 


DE FI CH IER": WA IT99:FLAG=1 : GOTO 1090 


1070 1ER 
1080 ! ML 
1090 1ER 
1 ÎOO ' 
1110 ' 
2000 REM 
2010 '• 


! EROFF 

! MLOAD FI*"=PP 
! EROFF:RETURN 


:FLAG=0 


TRACE DES AXES 


2080 ' 

2090 IFFLAG=1THENG0SUB7000 

2100 ' 

2110 BASE=PP(0,0):DP=PP(1,0):DY=40 

2120 FOR I=0T05 

2130 P* ( I)=STR*(BASE+I*DP) 

2140 P* ( I)=RI6HT*(P*(I) ,LEN(P*(I) )-1) 











150 IFLEN (P* ( I ) ) C2THENF'* ( I ) 
2160 IFLEN (F*( I ) )<3THENF'*(I) 


) 


2170 NEXT 
2180 * 

2190 * 

2200 H IRES 
2205 ‘ 

2210 CURSET 25,170,1 
2220 DRAW 211,0,1 
2230 CURSET 25,173,1 
2240 DRAW 0,-173,1 

2260 CURSET 234,167,3 
2270 CHAR 62,0,1 
2280 CURSET 23,0,3 
2290 CHAR 94,0,1 

2300 * 




2310 

Y1 = 167 



2770 

NEXT I 

2320 

CURSET 

X1,Y1, 1 : DRAW 

0,6, 1 

2780 

T 2=T2+1 

2330 

CURSET 

X2,Y 1, 1 s DRAW 

0,6, 1 

2790 

NEXTY 

2340 

CURSET 

X3,Y1, 1 s DRAW 

0,6, 1 

2800 

• 

2350 

CURSET 

X4,Y 1, 1 s DRAW 

0,6,1 

2810 

RETURN 

2360 

CURSET 

X5,Y1,lsDRAW 

0,6,1 

2900 


2370 

CURSET 

X6,Y1, 1 s DRAW 

0,6, 1 

| 2910 

» 

2380 

CURSET 

X7,Y1, 1 s DRAW 

0,6,1 

1 3000 

REM 

2390 

CURSET 

X8,Y 1, 1 s DRAW 

0,6, 1 

301 0 

TRACE DU NOM 

2400 

CURSET 

X9,Y 1, 1 s DRAW 

0,6, 1 

T. (■) O 


2410 

CURSET 

XA,Y 1, 1 s DRAW 

0,6, 1 

3030 

• 

2420 

CURSET 

XB,Y 1, 1 s DRAW 

0,6, 1 

. 3040 

U=LEN(NO*)*6*2-2 

2430 

CURSET 

XC,Y1, 1 s DRAW 

0,6, 1 

3410 

CURSET240—U,1,3 

2440 




3420 

F0RC=1TOLEN (NO*) 

2520 




1 3430 

G(C)=ASC(MID*(NO*,C,1)) 

2530 

T 1=22 



' 3440 

CHARG(C) ,0,1s CURMQV7,0,3 

2540 

FORY=170T010STEP-40 


3450 

NEXT 

2550 

CURSETT1,Y,1 


3460 


2560 

DRAW 6, 

0,1sPATTERN49 sDRAW206,0, 1 

3470 

CURSET 100,1,3 

s PATTERN255 



| 3480 

F0RC=1TOLEN(AN*) 

2570 

NEXT 



1 3490 

G(C)=ASC(MID*(AN*,C,1)) 

2580 




3500 

CHAR G(C) ,0, 1 sCURMOV 7,0 

2590 

Y2=175 



3510 

NEXT 

2600 

CURSET 

X0+(Xl-XO)/2- 

2,Y2,3s CHAR 

3520 

/ 

c ( o >, 

, 1 



3530 

RETURN 

2610 

CURSET 

X1+(X2-X1)/2- 

2, Y2,3:CHAR 

3540 

- 

c < i ), <: 

, 1 



3550 


2620 

CURSET 

X2+(X3-X2)/2- 

2,Y2,3s CHAR 

1 4000 

REM 

C < 2 ) , 

, 1 



• 4010 

RECHERCHE TAILLE 

2630 

CURSET 

X3+(X4-X3)/2— 

2,Y2,3s CHAR 

4020 

' 

C (3) , 0 

, 1 



4030 

■ 

2640 

CURSET 

X4+(X5-X4)/2- 

2,Y2,3 s CHAR 

4050 

FOR I=0T059 

C ( 4 ) , 0 

, 1 



, 4060 

IFPP(0, I)=OTHENA=I s G0T04 

2650 

CURSET 

X5-MX6-X5) /2— 

2,Y2,3s CHAR 

4070 

NEXT 


C (5) , O, 1 

2660 CURSET X6+<X7-X6)/2—2,Y2,3:CHAR 
C ( 6 ) , 0, 1 

2670 CURSET X7+ ( X8-X7)/2—2,Y2,3:CHAR 
C ( 7 ) , 0, 1 

2680 CURSET X8+<X9-XB)72-2,Y2,3:CHAR 
C(8),O,1 

2690 CURSET X9+(XA-X9)/2—2,Y2,3:CHAR 
C(9) ,O, 1 

2700 CURSET XA+<XB-XA)/2-2,Y2,3s CHAR 
C(10), O, 1 

2710 CURSET XB+<XC-XB)/2-2,Y2,3s CHAR 
C ( 11 ) , 0, 1 

2720 ’ 

2730 T2=0 

2740 FORY=170T010STEP-40 

2750 CURSET3,Y—4,3 

2760 FORI = 1TOLEN(P*(T2) ) s K(I)=ASC(MID 
$ < P $(T 2) ,1,1)) sCHARK(I) ,0, 1:CURM0V6,0, 
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4200 ' 

5000 REM 
5010 ' 

5020 * 

5030 ' 

5040 IF PP(0,1)=0THENRETURN 
5050 FOR 1 = 1TÜA-1 
5060 CURSET PP (3, I)-2,PP (4, I) 

5070 CHAR 38,U,1 
5080 NEXT 
5090 REÏURN 
5100 ' 

5110 ' 

6000 REM 

6010 ' TRACE DES TRAITS 

6020 ' - 

6030 ' 

6040 IFPP(0,2)=0THENRETURN 
6050 G0SUB4000 
6060 PATTERN 85 
6070 FOR1=1TOA—2 
6080 CURSET PP (3, I ) , PP ( 4 , I ) , 3 
6090 DRAW F'P (3, 1 + 1 ) -PP (3, I ) , PP (4, 1 + 1 ) 
-F'P (4, I ) , 1 
6100 NEXT 
6110 PATTERN255 
6120 RETURN 
6130 ' 

61 40 ' 

7000 REM 

7010 ' SAISIE DES VALEURS 

7020 ' - 

7030 ' 

7040 CLS:PRINT 

7050 IFFLAG=0THEN711O 

7060 INPUT"POIDS de BASE : " ; BASE :CLS: P 
RINT 

7070 INPUT"INCREMENT du POIDS:DP:CL 
S : PR I NT 

7080 PP(0,0)=BASE: PP <1,O)=DP:FLAG=0 
7090 RETURN 
7100 ' 

7110 CLS:PRINT 

7120 INPUT"JOUR JO:CLS:PRINT 

7125 IFJ0<1ORJ0>31THENPING:G0T07120 
7130 INPUT"MOIS MO:CLS:PRINT 

7135 I FMO<1ORMQ>12THENPING:G0T07130 
7140 INPUT"POIDS PO:CLS:PRINT 

7145 I FPO<BASEORPO> BASE+4*DF'THENP I NG : 
G0T07140 
7150 * 

7160 PP(0,A)=J0 


REM 


!MSAVE 
RETURN 


REM 


SAUVEGARDE DU FICHIER 


FI $ " =F'P " 


LISTING DES PESEES 


7170 
7180 
7 190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
9000 
, 9010 

9020 ‘ - 

9030 ' 

9040 IFPP(0,1)=OTHENRETURN 
9050 TEXT:CLS 

9060 PRINT05, 10; "IMPRIMANTE (Ü/N) ?" ; 
: GETR* : CLS: PR INT: PRINT 
9070 IFR*="0"THENIM=1 :G0T09090 
9080 IFR* < >"N"THEN9060 

9090 IFI M= 1 THENLPR I NT : LPRI NT " PESEES D 
E "NO*:LPRINT:LPRINT 
9100 FORI=1TOA—1 

9110 J1*~STR*(PP(O, I) ):M1*=STR*(PP(1, 
I ) ) 

9120 J1*=RIGHT*(J1 *,LEN(J1 *)-1):M1*=R 
IGHT*(M1*,LEN(Ml*)-1) 

9130 J .1 *=R I GHT * ( Z *+J1 *, 2 ) : Ml *=R I GHT * ( 
Z*+M1*,2) 

9140 H*=STR*(PP(2,1)) 

G0SUB9500' 

H*-R IGHT *(H*,LEN(H*)—1) 

IFLEN(H*)=4THENH*=" "+H* 

IFLEN ( H* )'=3THENH*= " "+H* 

D*= : J1 *+ " . " +M1 * 

PRINTD*" "H*: IF IM=1THENLPRINTD* 


9150 
9160 
9170 
91 80 
9200 
9300 
" "H* 

9350 NEXT 

9360 IFIM=1THENLPRI NT :LPRINT : IM=0 
9400 GETR*:RETURN 
9500 REM 

9510 FGRC=1TOLEN(H*) 

9520 IFMID*(H*,C,1)="."THENRETURN 

9530 NEXT 

9540 H*=H*+".0" 

9550 RETURN# 
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Si l'on désire également, dans un 
listing sur imprimante 80c, que 
toutes les rubriques soient sur une 
même ligne, il ne faut pas que la lon¬ 
gueur totale des champs dépasse 
80. 

Il est également possible de faire 
une rubrique "DIVERS" dont la lon¬ 
gueur ne doit pas dépasser la lon¬ 
gueur permise par le buffer, soit 
150 caractères. 

B) PROGRAMME 

Le programme ci-joint permet de 
créer, lire et modifier une fiche ou 
encore de lire et d'imprimer le 
fichier. 


D'ABORD, 

LE COIN DES BUGS ! 

Le SEDORIC est bien, mais il reste 
quelques pièges à déjouer : un bril¬ 
lant exemple, le CSAVE... S'il vous 
prend l'envie de sauvegarder des 
données sur cassette, (une zçne 
mémoire, par exemple), vous allez 
avoir une surprise. Cette opération 
ne pourra se faire correctement 
qu'après avoir tapé QUIT pour sortir 
du DOS. Si vous avez la curiosité 
d'essayer sous SEDORIC, vous 
constaterez que, d'abord, l’opéra¬ 
tion est beaucoup plus longue que 
sans le SEDORIC (environ 2 fois en 
mode rapide ; en mode lent, on a 
l’impression que le système est 
planté !), mais le plus étonnant est 
que le temps de sauvegarde d’une 
zone mémoire est, pour une même 
longueur, fonction de son adresse 
de début ! Quelqu'un a-t-il une 
solution à proposer ? 

De Jean GUESNIER 
35 MONTFORT 

En complément aux indications 
fournies par EUREKA, relatives à 
l'accès direct avec TELESTRAT, 
voici quelques observations : 

A) CREATE 

Si l’on veut obtenir un numéro de 
téléphone dont les chiffres sont 
soit séparés par un point, un tiret, 
une accolade, il est nécessaire de 
mettre le symbole $ à la fin de 
TELEPH$ et d'indiquer la longueur 
de la chaîne, ex. : (99) 09-02-56 


2 

3 

4 

5 

10 

15 

20 

21 

22 

25 

27 

28 
30 
35 
40 
50 

56 

57 
60 

1000 
1 005 
1006 
1010 
1020 
1030 
1035 
1040 
1045 

1050 

1051 
1.052 
1053 
1055 
2000 

2005 

2006 
201.0 
2020 
2025 

3000 

3001 

3002 
30.05 
3010 
3030 
3035 
3500 
3510 
3520 
3530 


CLS 
FILE 1 

OPEN 1,1, "AGENDA * 
E*=CHR*(27) 


PRIMT E*“A CREER OU MODIFIER UNE FICHE,TAPER C“ 
PRINT 

PR I HT E*”C LIRE UNE FICHE, TAPER L’’ 

PRINT 

PRINT E*“B LIRE LE FICHIER,TAPER F" 

PRINT 

PRINT ES“C IMPRIMER LE F I CHI ER, TAPER I" 

PRINT 

PRINT ES"D VOTRE CHOIX?” ! !GET X$ 

PRINT 

IF X$="C" THEN 1000 
IF X*=“L" THEN 2000 
IF x*="F" THEN 3000 
IF X*="I“ THEN 3500 

IF X*< >“C" OR X*< >“L" OR X*< >“ F” OR X*< >"I" THEN 5 
PRINT 

PRINT SPC*(8) "CHOIX-C. .No DE LA FICHE?! ”i : INPUT N 
PRINT 

PRINT “NOM*!INPUT NOM* 

PRINT “PRENOM*: “ 5 : INPUT PRENOM* 

PRINT ”ADRESSE*:”î:INPUT ADRESSE* 

PRINT “VILLE*: " 5 : INPUT VILLE* 

PRINT "TELEPH*: "! : INPUT TELEPH* 

PRINT "DIVERS*: “ 5 : INPUT DIVERS* 

PUT 1 , N 

PRINT "VOULEZ VOUS RECOMMENCER?: O/N”:GET X* 

IF x*=“0“ THEN GOTO 1000 
IF XS="N“ THEN END 
END 

PRINT 

PRINT SPC*(8)"CHOIX-L..No DE LA FICHE?!”î:INPUT N 

PRINT 

TAKE 1,N 

PRINT NOM*,PRENOM*,ADRESSE*,VILLE*,TELEPH*,DIVERS* 

END 

PRINT 

PRINT SPC* ( 3) “ CHOIX-F’’ 

PRINT 

FOR 1=1 TO 100 
TAKE 1,I 

PRINT I,NOM*,PRENOM* 

NEXT 

FOR 1=1 TO 100 
TAKE 1,I 

LPRINT I,NOM*,PRENOM*,ADRESSE*,VILLE*,TELEPH* 
NEXT# 
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S i vous avez déjà utilisé un compatible IBM, ce nom de fichier ne 
vous est pas inconnu. Voici, sous SEDORIC (donc pour MICRO- 
DISC exclusivement), un "directory" amélioré. 

duplication du fichier. 



Le programme permet d'afficher le 
contenu d'une disquette en visua¬ 
lisant les titres des fichiers qui s'y 
trouvent. Les touches de curseur 
haut et bas permettent de sélection¬ 
ner un fichier. La touche "curseur 
droit" sélectionne une des fonc¬ 
tions suivantes : 

-TYPE: 


affichage d'un fichier texte. 

-LOAD: 

chargement d'un fichier. 

-DEL: 

effacement d'un fichier (confir¬ 
mation demandée). 

- REN : 

changement du nom du fichier. 

-COPY: 


Après lancement de 1 DIR, appuyer 
une fois sur "curseur bas" pour se 
positionner sur le premier fichier. 

ESC permet de quitter 1 DIR après 
avoir rétabli le jeu de caractères 
d'origine. 

Patrick DANGUY 


100 DATA 46360,0,0,0,0,0,0,63,63 : REM 
DIESE 

110 DATA 46368,63,63,O,O,O,O,O,O : REM 
DOLLAR 

120 DATA 46376,48,43,48,48,48,48,48,4 
8 : REM POURCENT 

130 DATA 46384,3,3,3,3,3,3,3,3 : REM A 
MPERSAND 


140 

F0KE#26A,43 


150 

PRINTCHR4(17) 


160 

PAPER 0:INK 7 


170 

ERR SET:ERRGOTO 

650 

180 

FOR 1=1 TO 4 


190 

READ A 


200 

FOR J=0TQ7:READ 

S:POKEA+J,S 

210 

NEXT J 


220 

NEXT I 


230 

CLS 


240 

ESC4=CHF,'4 (27) 


250 

KEY OFF 


260 

REM 


270 

REM initîa1isations 

280 

REM 


290 

NT =0:NS=0 


300 

CF-20:CS=4 


310 

DIM A4(200) 


312 

FOR I=0T0 200 : 

A4(I)=" 

":NEXT 


320 

GOTO 340 


340 

OF'EN D, 1 , A 


350 

FIELD 1,PSTE TO 

i 0,SECTEUR TO O, 

360 

FIELD 1,NOMBRE 

TO 0, 

7 0 

FIELD 1,NEUTRE 

TO 413, 

380 

FOR 1=0 TO 14 


390 

FIELD 1,NOM (I) 

TO 416, 

400 

NEXT 


4 10 

REM 


420 

REM saisie des 

noms 

430 

REM 


440 

F-20:S=4 


450 

TAKE 1,P,S 


460 

NOMBRE > NB 



470 IF NB—O THEN NB-15 ELSE NB=NB/16~ 

1 

430 PSTE > P 
490 SECTEUR > S 
500 FOR 1=0 TO NB-1 
510 NOM(I) > DE* 

520 A4(NT)= DE4:NT=NT +1 

530 NEXT 

540 NS=NS+1 

550 IF SOO THEN 450 

560 IF KEY4<>"" THEN GET A4 

570 REM 

580 IF INT(NT/20)=NT/20 THEN P=NT/20 
ELSE F-INT(NT/20)+1 
590 DIM F'4 < P , 20 ) 

600 KEY SET 
610 GOTO 730 
620 ' 

630 * GESTION D'ERREUR- 

640 * 

650 IF EN=50 THEN CLOSE 1: PRINT:FRINT 
:ERR OFF: GOTO 2130 
660 IF EN05 THEN RESUME NEXT 
670 KEY SET 

680 PR INT "Disquette prot-CgLe 
690 PRINT"Pressez ’Return pour recom 
mencer"; 

700 GET A4:IF A4=ESC4 THEN ERROR 50 
710 RESUME 
720 END 

730 REM-ECRAN- 

740 CLS 

750 PR I NT @0 , O ; "St***************/: 

760 FOR I=1TO 20 
770 PRINTÔO,I;" 

780 PR I NT© 16, I ; " 7. " 

790 NEXT 

800 PRINT@0,21; 

810 PRINT@0,23;"&44444444444444444444 
444444444444444447. 

820 F'F: I NT30 , 24 ; " & ’’ : PR I NT©38,24 : “ 7. 11 
830 PRINT@0,25;"&#################### 
#################:/" ; 
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Il (I 


840 PRINT ©15,15; 


850 C*=CHF;*(144) 

860 PRINT@2,24;"TYPE "CHR*<144)" LOA 
D "C*" DEL -"C*'’* REN "C*” COP Y "C* 
870 PRINT@18,4;"Fichiers :"NT 
880 PRINT©18,5;"**********" 


890 PF;INT© 18, 8; "Fichier : " 

900 PR INT© 18, 9; "*******" 

910 FOR I = 1T0 20 : PR I NT@15, I ; CHF;* ( 144 
):NEXT 

920 A*(NT)=A*(O) 

930 FOR J=1T0 P 


940 FOR I=1T020 

950 P* (J, I )=LEFT* (A* (J*20 -20+1), 12) 
960 NEXT 
970 NEXT 


980 F'AGE=1 : GOSUB 1050 

990 PLACE= 1 : PR I NT@PLACE, 24;CHR* i 150 ) 
1000 GOTO 1090 


1010 GET C* 

1020 IF C*=CHR*(10)THENPAGE=PAGE+1: IF 
PAGE>PTHENPAGE=P: GOTO 1010:ELSE1050 
1030 IFC*=CHR*(11)THENPAGE=PAGE-1 : IFP 
A6E<1THENFAGE=1 : GOTO10ÎOELSEGOTO1050 
1040 IF C*=CHR*(27> THEN END ELSE 101 


1050 FOR 1 = 1 TO 20: F'R I NT©3, I ; F‘$ (PAGE, I 
) :NEXT 

1060 RETURN 
1070 NEXT 
1080 GOTO 1010 
1090 GETC* 

1100 C=ASC(C*) 

1110 IF C=13 THEN GOSUB 1460 
1120 IF C=9 THEN GOSUB 1270 
1130 IF C=10 THEN GOSUB 1170 
1140 IF C=ll THEN GOSUB 1370 
1150 IF C=27 THEN 2130ELSE 1090 
1160 GOTO 1090 
1170 * 

1180 - -SELECTION BAS- 


1 190 ' 

1200 IF PAGE=P AND Y=NT-(20*(P-l)) TH 
EN RETURN 
1210 IFY=OTHEN1230 
1220 PRINT©2,Y;CHR*(144) 

1230 IF Y=20 THEN 1260 ELSE Y=Y+1 
1240 PRINT©2,Y;CHR*(150) 

1250 RETURN 

1260 PAGE=PAGE+1:IF PAGE>PTHENFAGE=P: 
RETURN ELSE Y=1:GOSUB1050:GOTO1240 

1270 ' 

1280 '-SELECTION FONCTION 

1290 ' 

1300 IF F'LACE=1 THEN PR I NT ©PLACE, 24 ; 
CHR* ( 144 ) : F'LACE=9 : GOTO 1350 
1310 IF F'LACE=9 THEN PR INT ©PLACE, 24 ; 
CHR*(144):F'LACE=16 : GOTO1350 


1320 IF PLAC= 16 THEN F'R I NT ©PLACE, 24 : C 
HR*(144):F LACE=23 : GOTO 1350 
1330 IF PLACE=23 THEN PRINTSPLACE,24; 
CHR*(144) :PLACE=30 :GOT 01350 
1340 IF PLACE=30 THEN PRINT©PLACE,24; 
CHR*(144):PLACE=1 : GOTO1350 

1350 PRINT@PLACE,24 ;CHR*(150) 

1360 RETURN 
1370 * 

1380 -SELECTION HAUT- 

1390 ' 

1400 IF PAGE =1 AND Y=1 THEN RETURN 
1410 FRINT:PRINT©2,Y;CHR*(144) 

1420 IF Y=1 THEN 1450 ELSE Y=Y-1 
1430 PRINT@2,Y;CHR*(150) 

1440 RETURN 

1450 PAGE=F’AGE-1 : I FPAGE< 1 THENPAGE= 1 : R 
ETURNELSE Y=20:GOSUB1050: GOTO1430 
1460 ' 

1470 '-FX SI APPUI SUR <RETURN>- 

1480 ' 

1490 IF PLACE =1 THEN 1540 

1500 IF PLACE =9 THEN1670 

1510 IF PLACE =16THEN 1850 

1520 IF PLACE =23THEN 1930 

1530 IF PLACE =30THEN 2020 

1540 ' 

1550 '-TYPE- 


1560 ' 

1570 PRINTCHR*(19) 

1580 A*=LEFT*(P*(PAGE,Y),9)+"."+RIGHT 
*(P*(PAGE,Y),3) 

1590 LOAD A*, V : IF FTO 16 THENPRINTC 
HR*(19):RETURN 
1600 F‘R INTCHR* (19) 

1610 CLS 

1620 OPEN S,A*,3:TYPE 3:CL0SE3 
1630 PRINT:PRINT"taper sur une touche 
":GET C* 

1640 CLS:CLEAR : GOTO 240 
1650 ' 

1660 '-LOAD- 

1670 ' 

1680 A*=LEFT*(F*(PAGE,Y) ,9)+". "+RIGHT 
* (P*(PAGE,Y),3) 

1690 PRINTCHR*(19) 

1700 LOAD A*,V 
1710 PRINTCHR*(19) 

1720 IF FT=12STHEN TT*="basic" 

1730 IF FT=129THEN TT*= "basic auto" 


1740 IF FT=64 THEN TT$="machine" 

1750 IF FT=65 THEN TT*= "machine auto 

1760 IF FT=8 THEN TT*= "accls direct 


1770 IF FT=96 THEN TT*="window" 

1780 IF FT=16 THEN TT*="sCquentie1" 








i790 PR INT@28,8;TT* 

1800 PRINT018,12;"Chargement 0/N ?"; 
1810 GET REP* : PR I NTREF'* 

1820 IF FT>127 THEN CLS 

1830 IF REF *= ” O "OR REF'*= " o " THEN60SUB2 
140: LÜAD A* 

1840 CLS:CLEAR : GOTO 240 
1850 ' 

1860 "-DEL-v- 

1870 ' 

1880 PRINTâO, 22; "con-f i rmat ion o/n 
GETC* 

1890 IF C* < >"O"ANDC *<>"o" THEN 1910 
i900 A*=LEFT*(P*<PAGE,Y),9)."+RIGHT 
*(PT/PAGE,Y),3):DELA* 

1910 PRINT@0,22; SPC(17) 

1920 CLS:CLEAR : GOTO 240 
1930 ' 

1940 '-REN- 

1950 ' 

1960 PRINTSO,22;"REN ”P*(PAGE,Y)" TO 

I! , 

Y 

1970 INPUT V* 

1980 A*=LEFT* (P* <PAGE, Y) ,9)+". "+RI 6 HT. 
*(P*(PAGE,Y),3) 

1990 REN A* TO V* 

2000 F*(PAGE,Y)=LEFT*(A*,9)+RIGHT*(A* 
, o* ) 

2010 CLS:CLEAR : GOTO 240 

2020 ' 

2030 '-COP Y- 

2040 ' 

2050 CLS 

2060 PRINT" COPY "P*(PAGE,Y)" TO "; 
2070 INPUT V* 

2080 A*-LEFT*(P*(PAGE,Y) ,9). "+RIGHT 
*(P*(PAGE,Y),3) 

2090 COPY A* TO V* 

2100 PF; INT : PR INT : PR INT "Mettez la disq 
nette prCc-Cdente et ap-" 

2110 PRINT"puyez sur une toucheGET 
C* 

2120 CLS:CLEAR : GOTO 240 
2130 ‘ CARACT STANDARDS 
2140 ‘RESTORE 2150 


2150 

o 

Y Y 

DATA 

20,20 , 62. , 20 , 

0 

62 , 20 

2160 

DATA 

8 , 30 , 40 , 28 , 

10 , 60 

, 3 

Y 

0 


2170 

7 3 

DATA 

, 0 

48 , 50 , 4 , 8 , 

16 , 38 

2180 

6 , 2 t 

DATA 
» , 0 

16 , 40 , 40 , 16 

49 3 

2190 

FOR I = 

46360 TO 46391 


2200 

READ 

A:POKEI,A 



2210 NEXT 
2220 CLS 

2230 IF C=27 THEN END 
2240 RETURN# 


MCP 

COPY 

Bruno BOUCHAUD 


Complément au programme 
de M. Frédéric POPEK 
(THEORIC n° 7) 


C e programme en langage 
machine vous permet de re¬ 
copier sur votre MCP-40 ce que 
vous avez à l'écran (TEXT ou 
HIRES) lorsque vous appuyez sur 
FUNCT. Il ne marche que sur 
ATMOS, mais libre à vous de le 
transformer sur votre ORIC-1 pré¬ 
féré (attention, l'ORIC-1 ne pos¬ 
sède pas de touche FUNCT). 

Ce programme doit être ajouté au 
programme "Recopie rapide 
MCP-40" paru dans THEORIC 
n° 7. 

Il vous faudra d'abord charger 
"Recopie rapide MCP-40" que 
vous vous êtes empressé de 
taper. Celui-ci occupe les adres¬ 
ses 9600 à 9713. Ensuite, tapez 
ses quelques lignes Basic et fai¬ 
tes RUN afin de charger le code 
machine. Si vous possédez un 
assembleur, vous n'aurez qu'à 
taper les mnémoniques figurant 
dans le listing Basic. Dès que 
vous serez sûr de n'avoir fait 
aucune erreur, vous n'aurez qu'à 
sauvegarder le rassemblement de 
ses deux programmes par 
CSAVE "MCP-COPY" ,A#95B9, 
E #9721. Ensuite, faire DOKE 
#23C, #9589 pour que la routine 
soit scrutée continuellement. 
L'intérêt de ce programme réside 
dans le fait que vous avez "la 
main”. Vous pouvez faire un pro¬ 
gramme Basic. Dès que vous 
appuierez sur la touche- FUNCT, 







la recopie de l'écran se fera sans 
altérer ce que vous avez 
commencé. Maintenant, c'est 
facile et pas cher d'écrire votre 
courrier en le tapant directement 
sur l'écran. 

Attention ! Comme la touche 
FUNCT n'a pas d'auto-repeat, 
lorsque vous appuyez sur celle- 
ci, l'ATMOS peut enregistrer 
deux appuis. Il sera plus prudent, 
après avoir appuyé sur FUNCT, 
d'appuyer sur une autre touche 
avant la fin de la recopie. Bans 
cela, une deuxième recopie 
d'écran pourra être faite dès la fin 
de la première. 

Répondant à l'appel des lecteurs, 
nous vous proposons un commen¬ 
taire détaillé : 

Les adresses données correspon¬ 
dent aux lignes Basic. 

500-530 

Teste si FUNCT est enfoncée. 
L'adresse 209 correspond à l'ap¬ 
pui des touches dites spéciales 
(RETURN, FUNCT, etc.). 
Lorsqu'elle contient la valeur A5, 
la touche FUNCT est enfoncée. 
540-550 

L'adresse 21F contient la valeur 
0 si on est en mode TEXT ou 
LORES, et 1 si c'est le mode 
HIRES. 

560-590 

Correspond à DOKE OC, BB7F. 
Le chiffre BB7F correspond à 
l'adresse du début de l'écran 
TEXT-1. 

600-680 

Scrute chaque octet de l'écran en 
incrémentant l'adresse OC avec 
report de la retenue sur OD. A est 
chargé avec le caractère contenu 
dans l'adresse se trouvant en OC 
et OD. 

690-700 

Teste si le code ASCII du carac¬ 
tère est inférieur à 32. S'il est 
inférieur, il se branche à la ligne 
Basic 820 qui charge A avec la 
valeur 32, puis retourne en 710. 
Les caractères à l'écran dont le 
code ASCII est inférieur à 32 ne 
correspondent pas à un caractère 
imprimé mais à des caractères 
spéciaux qui peuvent définir la 
couleur encre ou fond, etc. Si on 
les envoyait à l'imprimante, ils 
pourraient altérer le bon fonction¬ 
nement de la recopie. 


710 

Exécute la routine F5C1 qui 
envoie un caractère à l'impri¬ 
mante. Le registre A contient le 
code ASCII du caractère. 

720-770 

Regarde si l'adresse se trouvant 
en OC et OD correspond à 
l'adresse de fin de l'écran TEXT. 

780-810 

Fin de la recopie TEXT. 
L'ATMOS envoie " " à l'impri¬ 
mante afin de faire revenir lé 
crayon vers la gauche. Ensuite, il 
y a branchement vers la routine 
EB78. Cette adresse se trouvait 
en 23C et 23D avant de faire le 
DOKE indiqué au début. Lorsque 
l'ORIC n'exécute pas de pro¬ 


gramme, il se branche continuel¬ 
lement à l'adresse que contient 
23C et 23D. La routine EB78 per¬ 
met la saisie de caractères au cla¬ 
vier. Comme on a changé le bran¬ 
chement avec DOKE 23C, 95B9, 
if faut quand même exécuter la 
routine EB78 pour ne pas modi¬ 
fier le fonctionnement de l'ordi¬ 
nateur. 

870-885 

Détour vers l'adresse Basic 920. 

920-930 

Exécute la fin des instructions de 
la recopie HIRES. 

940-950 

Branchement vers la routine en 
EB78. Voir explications des lignes 
780-810.# 




5 RESTORE 


570 DPTP 85,00 

’ STP*0D 

10 : 


580 DPTP P9,7F 

’ LDP#*7F 

20 REH t+tttttt+ttttttttttttttt 

590 DPTP 85,0C 

’ STP*0C 

30 REH + 

+ 

600 DPTP 18 

’ CLC 

40 REM + riCP-COPY + 

610 DPTP P9, 01 

’ LDP#*01 

50 REn + 


620 DPTP 65,0C 

’ PDC$0C 

60 REH + BOUCHPUD Bruno + 

630 DPTP 85, 0C 

’ ST P*0C 

70 REH + 

+ 

640 DPTP P9,00 

’ LDP#*00 

80 REH + THEORIC + 

650 DPTP 65,0D 

’ PDC*0D 

90 REH +’ 

- + 

660 DPTP 85,0D 

’ STP40D 

100 REH + 


670 DPTP P0,00 

> LDY#*00 

110 REH ++++++++++++++++++++++++ 

680 DPTP B1,0C 

’ LDPC40C3.T 

120 : 


690 DPTP C9,20 

’ CHP#*20 

130 : 


700 DPTP 30,18 

’ BHI*95FB 

140 : 


710 DPTP 20,Cl,F5 

’ JSR*F5C1 

200 F0RI=#95B9T0#95FF 

720 DPTP P9, DF 

’ LDP#*DF 

210 REPDP* 


730 DPTP C5,0C 

’ CHP40C 

220 P=UPLC"#"+P*:i 


740 DPTP D0.E2 

’ BNE495CE 

230 POKEIiP 


750 DPTP P9, BF 

’ LDP#*BF 

240 NEXT1 


760 DPTP C5, 0D 

’ CHP40D 

250 : 


770 DPTP D0,DC 

> BNE495CE 

260 : 


780 DPTP P9,20 

> LDP#*20 

î?0 : 


790 DPTP 20,Cl,F5 

’ JSR4F5C1 

300 FORI=#969PT0#969E 

800 DPTP 68 

’ PLP 

310 REPOP* 


810 DPTP 4C,78,EB 

> JHP4EB78 

320 P=UPLC"#"i-p$3 


820 DPTP P9,20 

’ LDP#*20 

330 POKEI,P 


830 DPTP 4C,E3,95 

’ JHP435E3 

340 NEXTI 


840 : 


350 : 


850 REH ROUTINE #969P P #969E 

360 : 


860 : 


370 : 


870 DPTP 4C,1 P,97 

’ JHP4971P 

400 F0RI=#971PT0#9721 

880 DPTP EP 

’ NOP 

410 REPDP* 


885 DPTP ÉP 

» NOP 

420 P=UPLC"#"+P*3 


890 : 


430 POKÉI, P 


900 REH ROUTINE #971P P #9721 

440 NEXTl 


910 : 


450 : 


920 DPTP 20,9F,96 

’ JSR*969F 

460 : 


930 DPTP 58 

’ CLI 

470 : 


940 DPTP 68 

’ PLP 

#80 REH ROUTINE 

#95B9 P #95FF 

.950 DPTP.4C, 78, EB 

> JHP4EB78 

490 : 


960 : 


500 DPTP 48 

> PHP 

970 : 


510 DPTP PD, 09,02 

’ LDP*209 

980 > PTTENTION 8! 

520 DPTP C9,P5 

» CHP#*P5 

990 > 

1 

530 DPTP D0,36 

’ BNE*95F7 

1000 ’ CE PROGRPHHE 

NE HPRCHE QU’PUEC 1 

540 DPTP PD,1F,02 

’ LDP*21F 

1010 > LE PROGRPHHE 

'RECOPIE RPP1DE 

550 DPTP D0,3P 

’ BNE*9600 

1020 > HCP-40’. NE PPS LPNCER HCP- 

560 DPTP P9,BB 

’ LDP#*BB 

1030 > COPT SPNS LUI. 


29 












U 


O 


ROCK’N 
SCROLL 


Michel ZUPAN 


U ne fois n'est pas coutume, l'objet de notre rubrique FORTH est 
un programme BASIC ! Ce module de scrolling dans tous les 
sens à tous les modes est pourtant un pur produit FORTH. 


SACRILEGE : DU BASIC ! 

Je vous raconte l'histoire. L'idée de 
départ était de développer une rou¬ 
tine simple, universelle, relogeable 
de scrolling de l'écran ORIC dans 
les quatre directions. Le module de¬ 
vait pouvoir être appelé depuis tout 
programme de composition d'é¬ 
crans qu'il soit en FORTH, LM, BA¬ 
SIC ou autre, scroller du texte en 
38 ou 40 colonnes ou des gra¬ 
phiques par l'appui des quatre flè¬ 
ches de direction et revenir au pro¬ 
gramme appelant par l'appui de 
ESCAPE. 

Evidemment une telle routine serait 
en langage machine avec malgré, 
sa longueur attendue, la possibilité 
d'être assemblée où le désirerait 
l'utilisateur final. 

Après bien des tentatives auprès 
d'amis non forthiens, il fallut se ren¬ 
dre à l'evidence : pour être réelle¬ 
ment compatible envers tout Ori- 
cien, il n'y a que le BASIC ! 

Et c'est ainsi qu'est né le pari fou 
autour de cet exercice de style de 
scrollings de fabriquer en FORTH 
un véritable programme BASIC. 

ROCK ROUTINE 

Il va sans dire que notre routine est 
écrite en macro-assembleur Forth, 
incomparablement plus pratique 


que tout autre assembleur. Quatre 
écrans suffisent à définir le mot 
SCROLLER qui assemble en une 
seule passe toute la routine là où 
vous voulez. 

Nous commençons par définir six 
registres de travail en page zéro. 
En effet SCROLLER est conçu 
pour tous types d'écrans. Nous 
avons besoin de l’adresse de la pre¬ 
mière ligne (PL), celle de la der¬ 
nière ligne (DL), le nombre de co¬ 
lonnes (NC) et de lignes (NL), 
l'adresse d'un tampon de ligne 
(TL) et l'interligne (IL) c'est-à-dirè 
l'écart entre deux cellules super¬ 
posées. Celui-ci est toujours égal à 
40 sur l'écran ORIC mais vous pour¬ 
rez le changer s'il vous prend l’idée 
de scroller des écrans virtuels de 
80 colonnes par exemple. 

Ces registres restent temporaires : 
vos programmes peuvent les uti¬ 
liser avant et après SCROLLER en 
sachant qu’ils risquent d'être modi¬ 
fiés entre temps bien-sûr. 

Nous utilisons encore deux index 0- 
1 et 2-3 pour les déplacements 
d'octets : DEPLACE est la macro 
de ces simples transferts en adres¬ 
sage indirect post-indexé. Chou¬ 
ette le 6502 mais plus chouettes 
encore les macros ! 

LSUIV et LPREC macro-assem- 


blent les passages à la ligne sui¬ 
vante ou précédente. 

CLAVIER attend une touche au 
clavier. A ce propos, la rapidité des 
scrolls dépend surtout du réglage 
de la répétition des timers du cla¬ 
vier, notamment pour les verticaux 
en HIRES qui sont les plus longs. 

Les utilisateurs d'un FIG-FORTH 
trouveront encore dans le premier 
écran les équivalents des mots du 
F83 qui permettent de se passer le 
plus souvent de labels pour l'as¬ 
semblage de références avant ou 
arrière. 

Viennent ensuite les macros d'as¬ 
semblage de tous les défilements 
d'écran : DEC-G et DEC-D sont 
utilisés par les scrolls latéraux pour 
décaler une seule ligne, SCROLL- 
G, SCROLL-D, SCROLL-H et 
SCROLL-B sont des modules in¬ 
dépendants de scrolling à gauche, 
droite, haut et bas. 

MODE débutera notre routine 
définitive en fixant les registres de 
travail selon les modes en plein- 
écran TEXT 38 ou 40 colonnes et 
HIRES. Voir le tableau ci-joint. 

Note pour tous : si vous désirez 
scroller des portions ou fenêtres 
d'écrans ou encore d'autres types 
d’écrans, vous pouvez remplir diffé¬ 
remment ces registres et attaquer 
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SCROLLER à son adresse plus 64. 
CURSOR-OFF se charge d'étein¬ 
dre le curseur et de sauver le re¬ 
gistre d'état d'affichage. 

Toute la routine peut enfin être as¬ 
semblée par l’exécution de 
SCROLLER qui gère les quatre 
flèches et le retour par ESC. R@ 
est un synonyme de R en F83. 

LE CHARGEUR BASIC 

Le programme définitif en BASIC a 
été entièrement écrit avec l'éditeur 
FORTH. Les DATAS sont fabri¬ 
quées automatiquement par le 


FORTH. Trivial : suffit d'une sorte 
de DUMP de notre routine après 
avoir vectorisé EMIT pour qu'il 
écrive dans les écrans de réditeur. 
Le texte est ensuite encodé et 
''tokenisé" "en lignes basicoises 
dans un bête fichier BASIC. 

C'est vraiment du BASIC : j'ai mê¬ 
me quitté FORTH pour charger ce 
programme et tenter un RUN, dites 
donc ! 

Le programme commence par vous 
demander où vous voulez installer 
SCROLLER. Ce n'est pas à un for- 
thien de vous dire que si vous vou¬ 


lez l'utiliser en HIRES, il vaudrait 
mieux caser ses 423 octets au- 
dessus de votre futur HIMEM et en 
dessous de #A000. Si vous don¬ 
nez une adresse trop basse pour le 
chargeur, le programme prend 
l’adresse #9650 en haut de mé¬ 
moire utilisable en HIRES. 

Sauf erreur de votre part dans les 
datas, vous pouvez jouer avec 
SCROLLER avant de sauvegarder 
la routine sur votre mémoire de 
masse. 

Et maintenant, qu'est-ce qu'on dit 
au FORTH ? 


FILE: SCROLLER.FTH / SCRN# 1 

< 0) \ scroller : registres et eacros 30OCT86 MZ 

< 1) ONLY FORTH ALSO ASSEMBLER DEFINITIONS DECIMAL 

( 2) 4 EQU PL 6 EQU DL 8 EQU NC 9 EQU NL 10 EQU TL 16 EQU IL 

< 3) : DEPLACE 0 >Y LDA, 2 >Y STA, ; 

< 4> : LSUIV CLC, 0 LDA, IL ADC, 0 STA, 1 LDA, 0 # ADC, 

< 5> 1 STA, 2 LDA, IL ADC, 2 STA, 3 LDA, 0 # ADC, 3 STA, ; 

< 6) : LPREC SEC, 0 LDA, IL SBC, 0 STA, 1 LDA, 0 # SBC, 

< 7> 1 STA, 2 LDA, IL SBC, 2 STA, 3 LDA, 0 # SBC, 3 STA. ; 

< 8) HEX : CLAVIER C5E8 ( C5F8 / VI.0 ) JSR, ; DECIMAL 

< 9) —> 

(10) Voici pour FIG les aots d’utilisation de references avant 
<11> et arriéré en adressages absolus ou relatifs : 

<12> : <MARK HERE ; : >MARK HERE DUP ; : <RESOLVE ; 

<13> : >RESOLVE DUP C# 1F AND 10 = < relative 7 ) 

<14) IF HERE OVER 2+ - SVAP 1+ Cl ELSE 1+ HERE SVAP ! THEN ; 

< 15) 


FILE 


< 6 ) 

< 7> 

< 8 > 
< 9> 
< 10 > 
(11) 
( 12 ) 
(13) 
<14) 
(15) 


SCROLLER.FTH / SCRN# 3 

\ Scrolls verticaux 30OCT86 MZ 

: SCROLL-H CLC, PL LDA, 2 S¥A, IL ADC, 0 STA, PL 1+ LDA, 

3 STA, 0 # ADC, 1 STA, NC LDY, 

BEGIN, DEY, 2 >Y LDA, TL >Y STA, 0 # CPY, 0= UNTIL, 

NL LDX, DEX, BEGIN, NC LDY, BEGIN, 

DEY, DEPLACE 0 • CPY, 0= UNTIL, LSUIV DEX, 0= UNTIL, NC LDY, 
BEGIN, DEY, TL >Y LDA, 2 >Y STA, 0 # CPY, 0= UNTIL, ; 

: SCROLL-B SEC, DL LDA, 2 STA, IL SBC. 0 STA, DL 1+ LDA, 

3 STA. 0 # SBC, 1 STA, NC LDY, 

BEGIN, DEY, 2 >Y LDA, TL >Y STA, 0 # CPY, 0= UNTIL, 

NL LDX, DEX, BEGIN, NC LDY. BEGIN, 

DEY, DEPLACE 0 # CPY, 0= UNTIL. LPREC DEX. 0= UNTIL. NC LDY. 
BEGIN. DEY, TL >Y LDA,' 2 >Y STA, 0 t CPY, 0= UNTIL, ; 

"T-> 


FILE: SCROLLER.FTH / SCRN# 2 


0 ) 

4) 

2 ) 

3) 

4> 

5) 
6 > 
7> 
0 ) 
9) 

( 10 ) 

< 11 ) 

< 12 ) 

<13) 

< 14) 

< 15) 


INY, BEGIN 

BEGIN, DEPLACE DEY, 


Scrolls latéraux 
DEC-G 0 # LDY. 0 )Y LDA, PHA, 

0= UNTIL, PLA, 2 >Y STA. ; 

DEC-0 NC LDY, 0 >Y LDA, PHA, DEY 
0= UNTIL, PLA, 2 )Y STA. ; 

SCROLL-G SEC. PL LDA, 0 STA, 1 «SBC, 2 STA, PL 1+ 
LDA, 1 STA. 0 i SBC, 3 STA, NL LDX, BEGIN, DEC-G 
LSUIV DEX. 0= UNTIL, ; 

SCROLL-D SEC, PL LDA, 2 STA. 1 i SBC, 0 STA, PL H 
LDA, 3 STA, 0 # SBC, 1 STA, NL LDX, BEGIN. DEC-D 
LSUIV DEX, 0= UNTIL, ; 

-> 


30OCT86 MZ 
DEPLACE INY, NC CPY, 


FILE: SCROLLER.FTH / SCRN# 4 

< 0> \ SCROLLER 30GCT86 MZ 

< 1> : MODE 704 LDA, .A LSR, CS NOT IF. 618 LDA, 32 # AND, 0= MOT 

< 2) IF, 7 # LDY, 0= IF, SVAP THEN, 15 • LDY. 0= IF, ROT THEN, 

< 3) 23 • LDY. THEN, THEN, 8 # LDX, BEGIN, >MARK ,Y LDA, 3 ,X STA, 

< 4) DEY, DEX, 0= UNTIL, 40 • LDA, IL STA, 0= IF, SVAP >RESOLVE 

< 5) 48040 , 49080 , 40 C, 27 C, 47872 , < text-40 ) 

< 6) 48042 . 49082 , 38 C, 27 C, 47872 , < text-38 ) 

< 7) 40960 , 48920 , 40 C, 200 C, 40704 , ( hires ) THEN. ; 

< 8) : CURSOR-OFF 618 LDA, PHA, 14 • LDA, 618 STA, 

< 9) 617 LDY, 18 >Y LDA, 127 • AND, 18 )Y STA, ; 

<10> : SCROLLER MOOE CURSOR-OFF <MARK >R CLAVIER 

<11) 7 11 DO I • CMP, 0= IF, >MARK JMP, SVAP THEN, -1 +LOOP 

<12) 27 # CMP, R# BNE, PLA, 618 STA, RTS, 

(13) >RESOLVE SCROLL-G R# JMP, >RESOLVE SCROLL-D R9 JMP, 

(14) >RESOLVE SCROLL-B R@ JMP, >RESOLVE SCROLL-H R> JMP, ; 

(15) 


REGISTRES DE SCROLLER EN PLEIN-ECRAN 


Registres 

• 

• 

TEXT-40 

TEXT-38 

• 

• 

HIRES 

• 

PL 

(04-05) 

m 

• 

48040 

48042 

• 

40960 

• 

• 

DL 

(06-07) 

• 

m 

49080 

49082 

• 

• 

48920 

• 

• 

NC 

(08) 

• 

n 

40 

38 

m 

m 

40 

• 

• 

NL 

(09) 

m 

• 

27 

TJ 

m 

• 

200 

• 

• 

TL 

(10-11) 

• 

• 

47872 

47872 

9 

9 

40704 


IL 

(16) 

• 

40 

40 


40 



Toutes adresses décimales. 
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100 REM ****tt*t**t**ttt$tt*t***t**t*tt*t****tt******* 


110 REM * * 
120 REM * SCROLLER * 
130 REM * * 
140 REM * Routine de scrolling quatre directions * 
150 REM * Text 38/40 colonnes ou Hires * 
160 REM * ORIC-1 et ATMOS * 


170 REM * 30OCT86 MZ * 

180 REM t*****t**tt*tt***tt*tt**$**t*****t**t***tt**** 

190 HIMEM #1200 ’ laisse de la place pour la routine 

200 CLS : INPUT "Adresse d’implantation "; A 

210 IF A < DEEK(#A6) THEN A=#9650 

220 PRINT "SCROLLER,A";HEX$<A>;",E";HEX$<A+423) 

230 REM - 

240 REM CHARGEMENT ROUTINE MACHINE 

250 REM - 

260 AA=A : FOR LI=500 TO 710 STEP 10 

270 SUM=0 : READ D$ : FOR 1=1 TO LEN(D*> STEP 2 

280 V=VAL("#'+MID$<D$,I,2>) 

290 POKE AA,V : AA=AA+1 : SUM=SUM+V : NEXT I : READ CS 
300 IF SUM <> CS THEN PRINT "ERREUR LIGNE" ;LI : STOP 
310 NEXT L1 

320 REM_—_—_____ 

330 REM ADAPTATIONS SELON IMPLANTATION 

340 REM - 

350 SUM=0 : IF A=#9650 THEN 390 

360 FOR I = 1 TO 9 : READ C.D : SUM=SUM+C+D 

370 DOKE A+C.A+D : NEXT I : READ CS 

380 IF SUM <> CS THEN PRINT "ERREUR 750-760 STOP 

390 IF PEEK<#FFEF> THEN DOKE A+83,#C5F8 * ORIC-1 

400 PRINT " 4 fléchés puis <esc> * : CALL A 

410 PRINT "Sauvez SCROLLER sur mémoire de masse * 

420 END 

430 REM - 

440 REM DATAS 

450 REM-- 

500 DATA ADC0024AB00FAD6A022920F004A007D006A00FD0,1994 
510 DATA 02A017A208B97896950388CAD0F7A9288510D018,2345 
520 DATA A8BBB8BF281B00BBAABBBABF261B00BB00A018BF,2345 
530 DATA 28C8009FAD6A0248A90E8D6A02AC6902B112297F,1826 
540 DATA 911220E8C5C90BD0034CA497C90AD0034C5097C9,2368 
550 DATA 09D0034C0E97C908D0034CCA96C91BD0DD688D6A,2317 
560 DATA 026038A5048500E9018502A5058501E9008503A6,1664 
570 DATA 09A000B10048C8B1009102C8C408D0F768910218,2076 
580 DATA A50065108500A50169008501A50265108502A503,1407 
590 DATA 69008503CAD0D24CA29638A5048502E9018500A5,2141 
600 DATA 058503E9008501A609A408B1004888B100910288,1700 
610 DATA D0F968910218A50065108500A50169008501A502,1719 
620 DATA 65108502A50369008503CAD0D44CA29638A50685,2031 
630 DATA 02E5108500A5078503E9008501A40888B102910A,1697 
640 DATA C000D0F7A609CAA40888B1009102C000D0F738A5,2524 
650 DATA 00E5108500A501E9008501A502E5108502A503E9,1859 
660 DATA 008503CAD0D9A40888B10A9102C000D0F74CA296,2440 
670 DATA 18A504850265108500A505850369008501A40888,1431 
680 DATA B102910AC000D0F7A609CAA40888B1009102C000,2182 
690 DATA D0F718A50065108500A50169008501A502651085,1716 
700 DAT A 02A50369008503CAD0D9A40888B10A9102C000D0,2080 
710 DATA F74CA296,635 

720 REM - 

730 REM DATAS POUR RELOGER SCROLLER 

740 REM - 

750 DATA 26,40,90,340,97,256,104,190,111,122,188,82 
760 DATA 254,82,338,82,422,82,2906 

770 REM - 



Nom 

Prénom 


Adresse 


Ci joint, un chèque de F à l'ordre des 

Editions SORACOM, La Haie de Pan, 35170 
BRUZ 
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SUPER FEN : 
les menus déroulants 

ERIC VIEL 


V ous qui rêvez devant des Macintosh (marque et modèle 
déposés par Apple Inc). Théorie va vous permettre d’a¬ 
border un des aspects fort intéréssant de cette machine, 
pour le moins coûteuse, pour la modique somme que vous 
avez payé pour cette superbe revue (T’as-vu Denis ? Alors 
pense à mon augmentation !) 


Super fen, comme son nom nous 
l'indique, va vous permettre de 
créer des menus déroulants, des 
vrais, (enfin, presque..., nous n'a¬ 
vons qu'un ORIC), comme sur Ma¬ 
cintosh (marque et modèle dé¬ 
posés par Apple Inc) - Ils sont 
rares, mais il y en a - Un menu dé¬ 
roulant ? Quesako ? C’est grave 
Docteur ? Je pourrai encore regar¬ 
der Dallas sur le téléviseurfamilial ? 
Losque l'on regarde l'écran d'un 
Macintosh (marque et modèle dé¬ 
posés par Apple Inc), on remarque 
en haut une barre blanche, ou 
figurent plusieurs options. Il suffit 
de déplacer le curseur (en l'oc¬ 
curence une flèche) jusqu'à une de 
des options, à l'aide de la souris qui 
a fait la célébrité du Macintosh (mar¬ 
que et modèle déposés par Apple 
Inc), et de presser le dos de l'animal 
pour que se déroule un menu, pré¬ 
sentant diverses fonctions. Dé¬ 
placez alors la souris sur la fonction 
désirée, et relâchez la pression que 
vous exerciez sur le dos de l'(hor- 
rible) bête (sinon, la S.P.A. vous 
ferait des ennuis !) et hop, (Pri- 
suni...) la fonction s'éxécute. 

L'utilitaire que nous vous propo¬ 


sons ce mois-ci s'occupe de gérer 
l'ouverture des menus déroulants. 
Son utilisation est rendue fort 
simple par l'utilisation de l'inter¬ 
rupteur. En revanche, ceci oblige à 
créer 2 versions (ORIC 1 & AT- 
MOS). Lors de la recopie, ne vous 
trompez pas de version. 

Pour ouvrir un menu déroulant, il 
suffit de faire : 

Call #9500, pos, larg, A$, B$,... , 
N$, Retour. 

Pos étant la position en x de la 
fenêtre (un menu déroulant s'ouvre 
toujours à partir de la première ligne 
de l'écran, vers le bas ) Larg est la 
largeur de la fenêtre. A$, B$, ... 
sont des chaînes de caractères re¬ 
présentant les options possibles. 
Une chaîne vide (” ") affiche une 
ligne vide. On peut mettre de 1 à 
24 variables. Retour est une vari¬ 
able qui indique l'option choisie. Si 
Retour = 0, c'est que l'utilisateur a 
pressé ESC (Abandon). Si Retour 
est négatif, c'est qu’une option a 
été choisie. La valeur absolue de 
Retour indique alors la position de 
l’option choisie dans la séquence 
d'appel. Ainsi Retour = - 2 indique 
dans le cas précédent que c'est 


l'option B$ qui a été choisie. 

Les routines 'Clef utilisées sont : 
GETADR : Trouve l'adresse d'une 
chaîne de caractères. La stocke en 
#91, #92. 

Exprval : Evalue l'expression à 
TXTPTR - (#E9 - EA). S'il s'agit 
d'une chaîne, l'adresse #28 passe 
à#FF. 

ADRE : Trouve l'adresse de la 
variable numérique à TXTPTR. 

Les autres routines sont banales 
(saisie d'une touche,...) ou affi¬ 
chent des messages d'erreurs. 

Un programme de traitement de 
texte (réduit) est fourni, comme dé¬ 
monstration. De par l'utilisation des 
menus déroulants, son utilisation 
est grandement facilité. Aussi, pas 
d'explications. 

Note à Bertrand L.V. Macintosh, 
c’est une marque et un modèle 
déposés par Apple Inc. Ils ont 
tellement mis de copyright qu'ils 
vont rattraper Coca- Cola ! 

Au fait, cet article, c'est Copyright 
ERIC VIEL 1986. 

Salut ! 
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O HIMEM#94FF 
1 POKE 618,10 
100 REM 

110 REM MAC STAR 2000 

120 REM 

130 REM LOGICIEL D'EXPLOITATION DE 
140 REM 

150 REM SUPER FEN 

160 REM 

170 REM SUPER FEN ET MAC STAR 2000 
180 REM SONT DES CREATIONS DE: 

190 REM 

200 REM ERIC VIEL 

210 REM 

220 REM Copyright NOVEMBRE 1986 

230 REM 

240 REM - 

250 REM POUR UTILISER MAC STAR 2000, 


260 REM IL FAUT QUE SUPER FEN SOIT 
270 REM DEJA CHARGE EN MEMOIRE. 

280 REM - 

500 CLS 
510 PAPERO 
520 INK 7 

530 D*=CHR*(4>:E*=CHR*(27) 

540 PRINT:PRINTD*" "E$"J"E*“C 
MAC STAR 2000"D* 

550 PRINT:PRINT:PRINT:PRINT"Far Eric 
Viel.":PRINT”==============" 

560 PRINT:PRINT" Transformez votre 
vieil Oric en un" 

570 PRINT"superbe (?) Macintosh, en 1 
ui ajoutant";: IF PEEK(#FFF9)=1 THEN PR 
INT 

580 PRINT" les -fonctions de Wordstar 2 
OOO ! ! !" 

590 PRINT:PRINT:PRINT"MODE D'EMPLOI." 
: PRINT"==============" 

600 PRINT : PRINT" Utilisez les -flech 
es de curseur et" 

610 PRINT"le clavier pour entrer votr 
e texte." 

620 PRINT"La touche CTRL et la barre 
d'espace" 

630 PRINT"pressees ensembles -font a va 
ncer la" 

640 PRINT"barre en video inverse, en 
haut. " 

650 PRINT"CTRL—Return valide le menu. 
Pour en" 

660 PRINT"choisir une option, utilise 
z les " 

670 F‘RINT"-fléchés et Return pour Vali 
der. ESC " 

680 PRINT"annule." 

690 PRINT:PRINT"Pressez une touche."; 

:GETR* 

700 REM 

710 REM INITIALISATION 

720 REM 

730 FEN=#9500 

740 CLS 

750 PR INT"DESIREZ-VOUS MODIFIER LA CO 
ULEUR DE":FRINT"L ECRAN ? (0/N)"; 

760 REF’EAT: GETR*: UNTIL R*="0" OR R*=" 
N" 

770 IF R*="N" THEN 900 

800 PRINT:INPUT "COULEUR DE L'ENCRE ( 
0-7) ”;C 

810 IF C<0 OR 07 THEN 800 
820 INK C 

830 PRINT:INPUT"COULEUR DU PAPIER (0- 
7 ) " ; P 

840 IF P<O OR P>7 THEN 830 
850 IF P=C THEN PR INT"COULEUR PAPIER 
= COULEUR ENCRE.“:PRINT"IMPOSSIBLE." : G 
0T0 830 
860 PAPER P 
900 CLS 

910 FOR 1=46592 TO 46599:READ D:POKE 
I,D:NEXT 

920 READ PM*(1),PM*(2),PM*(3>,PM*(4), 
PM*(5),PM*(6) 

930 READ ES*(1),ES*(2),ES*(3),ES*(4) 
940 READ PT*(1),PT*(2),PT*(3) 
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950 READ ED4<1),ED4<2>,ED4<3) 

960 DOKE 18, #BB80.: PRINT" @ E/S POS.T 
EXTE EDITION 

970 POKE #20C,127:POKE#BB84,192 
980 P=1 

990 PRINT: PRINT:PRINT:PRINT:PRINT:PRI 
NT:PRINT 
ÎOOO REM 
101O REM 
1020 REM 
1030 Ml=2:M2=39 

1040 IF PEEK<#FFF9><>1 THEN M1=1:M2=3 

8 

11Ô0 X=M1:Y=0 
lllO F=50 

1150 A=SCRN(X,Y)+128:PLOTX,Y,A+256*(A 
>255):FORI=lTOF:A4=KEY4:IFA4<>""THEN11 
60 

1155 NEXT: GOTO 1150 

1160 A=SCRN(X,Y): IF A>128 THEN PLOT X 
,Y,A-128 

1165 IF PEEK(#209)=#A2 THEN 1600 
1170 IF A4>=CHR4(B) AND A4<CHR4(12) T 
HEN 1300 

1180 IF A4=CHR4(13) THEN 1500 
1200 IF A4<" '* OR A4> " > " THEN 1150 
1210 PLOT X,Y,A4 

1220 X = X+1: IF X>M2 THEN X=M1:Y=Y+1 
1230 IF Y=27 THEN Y=26:X=M2 
1240 GOTO 1150 

1300 IF A$OCHR$ (9) THEN 1350 
1310 X=X+1:IF X>M2 THEN X=M1:Y=Y+1 
1320 IF Y=27 THEN Y=00:X=M1 
1330 GOTO 1150 

1350 IF A$OCHR$ (8) THEN 1400 
1360 X=X —1:IF X<M1 THEN Y=Y-1:X=M2 
1370 IF Y<0 THEN Y=26:X=M2 
1380 GOTO 1150 

1400 IF A$OCHR*(10) THEN 1450 
1410 Y=Y+1: IF Y=27 THEN Y=0 
1420 GOTO 1150 

1450 Y=Y—1: IF Y=-l THEN Y=26 
1460 GOTO 1150 

1500 X=M1:Y=Y+1:IF Y=27 THEN Y=26 

1510 GOTO 1150 

1600 IF A4<>" " THEN 1900 

1610 GOSUB 1800 

1620 P=P+1: IF P>4 THEN P=1 

1630 GOSUB 1800 

1640 GOTO 1150 

1800 IF PO 1 THEN 1810 

1805 A=PEEK < #BB84 )+128: F'0KE#BB84 , A+25 
6*(A>255):RETURN 
1810 IF P<>2 THEN 1820 

1812 FOR I=#BB86 TO #BBB8:A=PEEK(I)+1 
28: F'OKEI, A+256* <A>255> : NEXT : RETURN 
1820 IF P<>3 THEN 1830 

1825 FOR I=#BB8A TO #BB92:A=PEEK(I)+1 
28:POKEI,A+256*(A>255):NEXT:RETURN 
1830 FOR I=#BB94 TO #BB9A:A=PEEK<I)+1 
28:POKEI,A+256*(A>255>:NEXT:RETURN 
1900 IF A$OCHR$ < 13) THEN 1150 
1910 IF POl THEN 2000 

1920 CALL FEN,2,22,"",PM4(1),PM4<2),P 
M4<3),PM4<4),PM4<5),PM4(6),"",M 
1930 GOTO 1150 
2000 IF P<>2 THEN 2100 

2010 CALL FEN,4,10,ES4(1),ES4(2),ES»( 


3),ES4<4),M 

2020 IF NOT MCO THEN 1150 

2030 IF M<—1 THEN 2040 

2031 FOR J=0TQ26:FORZ=MlTOM2:LPRINTCH 
R4(SCRN(Z,J)); :NEXT:LPRINT: NEXT:GOTOll 
50 

2040 IF M<—2 THEN 2050 

2045 CSAVE "MAC STAR 2000",A#BB80,E#B 
FEO 

2047 PRINTCHR4(30); : GOTO 960 
2050 IF MC-3 THEN 2060 
205) S4=CHR4(19> 

2053 I FPEEK(#FFF9 ) = 1 THENPR I NTS4:CLOAD 
”MAC STAR 2000 ": PRINTS4CHR4( 30 ):G0T096 


O 

2055 A=DEEK(#90:POKE#35,O:POKE#67,O: 
CALL#E6CA:CALL#E4A8:CALL#EB04 
2057 DOKE #9C,A:PRINTCHR4(30):G0T0960 
2060 CALL FEN, 15, 11, " OK."," 

" ," H ," ANNULER",M 

2070 IF MO—3 THEN 1150 ELSE CLS:POKE 
#20C,255:END 
2100 IF P<>3 THEN 2200 

2110 CALL FEN,8,15,PT4(1),PT4(2), PT4( 
3) , Z 

2120 IF Z=0 THEN 1150 

2130 A<="": FOR I=M1 TO M2:A*=A«+CHR«( 
SCRN(I,Y)> sPLOTI,Y,“ “:NEXT 
2140 IF MID*(A4,1,1)=" " THEN A*=RIGH 
T*(A*,LEN(A*)-1):GOTO 2140 
2150 L=LEN(A*):IF MID*<A*,L,1)=" " TH 
EN A*=LEFT*(A*,L-1): GOTO 2150 
2160 IF Z=-l THEN PLOT (M2-M1)/2-LEN( 
A*)/2,Y,A4:GOTO 1150 
2170 IF Z=—2 THEN PLOT M2-LEN(A4)+1,Y 
,A4:GOTO 1150 

2180 PLOT Ml,Y,A4:GOTO 1150 
2200 CALL FEN,18,12,ED4(1>,ED4(2),ED4 
(3) ,S 
2210 
2220 


IF S=0 THEN 1150 
IF SC-l THEN 2230 
2225 FOR C=M1 TO M2:PLOT C,Y," " 
: GOTO 1150 

2230 IF SC-2 THEN 2240 
2235 X=M1:Y=0:GOTO 1150 
2240 CLS:GDT02235 
60000 REM 

60010 REM REDEF CARACTERE 
60020 REM 

60030 DATA 4,8,20,62,62,62,28,0 
60050 REM 
60060 REM 
60080 REM 
60090 DATA 
60100 DATA 
60110 DATA 
60120 DATA 
60130 DATA " " 

60140 DATA " PRESSEZ 
60150 DATA "IMPRESSION" 

60160 DATA "SAUVEGARDE" 

60170 DATA "CHARGE" 

601/5 DATA "QUITTER" 

60180 DATA "CENTRER" 

60190 DATA "CADRER A DROITE" 
60200 DATA "CADRER A GAUCHE" 
60210 DATA "EFF LIGNE" 

60220 DATA "HAUT DE PAGE" 

60230 DATA "EFF ECR" 


: NEXT 


MESSAGES 

“SUPER FEN A ETE CREE" 
"LE 8 NOVEMBRE 1986 PAR" 
“ ERIC VIEL" 

"POUR LA REVUE THEORIC" 


RETURN" 
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SUPER FEN 


1 REM 

2 REM SUPER FEN 

3 REM 

4 REM VERSION ORIC 1 

lO A=#9500: F=#96B5:L=1OO:REPEAT s FOR A=A TO A+15:READ C* 

20 K=VAL<"#"+C*>:S=S+K+65536*(S+K>65535>: IF A<=F THEN POKE A,K 
30 NEXT: READ D*:IF S=VAL ( "#"+D*) THEN L=L+5:UNTIL A>F: END 
40 PING:PRINT“Erreur ligne";L 

ÎOO DATA AD, CO, 02, C9,02, FO, 03, 4C, 72, DA, A9, OO, 8D, E3, BF, A9,0846 
105 DATA A8,85,00,A9,BB,85,01,A9,OO,85,02,A9,AO,85,03,20,OE7E 
HO DATA D9, CF, 20, OD, D8, EO, 26, 90, 03,4C, AO, D2, EA, E8,8E, EO, 17C2 
115 DATA BF,20,D9,CF,20,OD,D8,8A,8D,E1,BF,18,6D,EO,BF,C9,20F2 
120 DATA 26,90,03,4C,A0,D2,18,AD,EO,BF,65,OO,85,OO,20,D9,27BO 
125 DATA CF,A5,E9,48,A5,EA,48,20,8B,CE,24,28,30,OD,AD,E3,2FBE 
130 DATA BF,FO,03,4C,CD,95,68,68,4C,E4,CF,68,68,20,15,D7,37C9 
135 DATA A2,OO,AO,OO,8D,E2,BF,C9,OO,FO,16,Bl,OO,91,02,B1,3EFD 
140 DATA 91,91,OO,C8,E8,EC,E2,BF,FO,07,EC,E1,BF,DO,EC,FO,4A8B 
145 DATA 14,EC,El,BF,FO,OF, Bl,OO,91,02,A9,20,91,OO,C8,E8,5278 
150 DATA EC,E1,BF,DO,F1,20,A6,96,18,A5,OO,69,28,85,OO,A5,5A99 
155 DATA 01,69,00,85,01,18,A5,02,6D,El,BF,85,02,A5,03,69,5FED 
160 DATA OO,85,03,EE,E3,BF,AD,E3,BF,C9,18,DO,81,18,A9,A8,68EF 
165 DATA 6D,EO,BF,85,OO,A9,BB,69,OO,85,01,AD,E3,BF,8D,E4,7193 
170 DATA BF,20,A6,96,20,F8,C5,C9,OA,DO,20,AD,E4,BF,C9,Ol,7A68 
175 DATA FO,F2,CE,E4,BF,20,A6,96,18,A5,OO,69,28,85,OO,A5,828F 
180 DATA Ol, 69, 00,85, 01,20, A6, 96, 18,90, D9, C9, OB, DO, 21, AD., 88CE 
185 DATA E4 , BF, CD , E3 , BF, FO, CD , EE, E4, BF, 20, A6, 96, 38, A5 , OO , 9367 
190 DATA E9,28,85,00,A5,01,E9,00,85,01,20,A6,96,18,90,B4,99CA 
195 DATA C9,IB,DO,04,A9,OO,FO,OE,C9,OD,DO,A8,38,AD,E3,BF,A1FE 
200 DATA ED,E4.BF,18,69,01,20,15,DF,68,85,EA,68,85,E9,20,A9F1 
205 DATA FC, DO, AO,OO,9B,AA,B5,DO,91,B6,CB,CO,05,DO,F5,18,B3D5 
210 DATA A9,00,85,02,A9,AO,85,03,18,A9,A8,6D,EO,BF,85,OO, BADO 
215 DATA A9,BB,69,OO,85,O1,AO,OO,B1,02,91,OO,C8,CC,E1,BF,C23B 
220 DATA DO,F6,18,A5,00,69,28,85,00,A5,01,69,00,85,Ol,18,C781 
225 DATA A5,02,6D,El,BF,85,02,A5,03,69,OO,85,03,CE,E3,BF,CEC5 
230 DATA AD,E3,BF,DO,D1,60,AO,OO,B1,OO,18,69,80,91,OO,C8,D6CO 
235 DATA CC, El , BF, DO, F3,60, OO, OO, OO, OO, OO, OO, OO, OO, OO, OO, DB4F 


1 REM 

2 REM SUPER FEN 

3 REM 

4 REM VERSION ATMOS 

5 REM 

10 A=#9500:F=#96B5:L=100:REPEAT:FOR A=A TO A+15:READ C* 

20 K=VAL("#"+C*) :S=S+K+65536*(S+K>65535) : IF A<=F THEN POKE A, K 
30 NEXT : READ D*: IF S=VAL ( "# ,, +D*> THEN L=L+5:UNTIL A>F : END 
40 PING:PRINT"Erreur ligne";L 

ÎOO DATA AD,CO,02,C9,02,FO,03,4C,FD,DA,A9,OO,8D,E3,BF,A9,08D1 
105 DATA A8,85,00,A9,BB,85,01,A9,00,85,02,A9,AO,85,03,20,0F09 
HO DATA 65,D0,20,C8,D8,E0,26,90,03,4C,36,D3,EA,8E,E0,BF,1803 
115 DATA 20,65,DO,20,C8,D8,8A,8D,El,BF,18,6D,EO,BF,C9,26,20E2 
120 DATA 90,03,4C,36,D3,18,AD,EO,BF,65,OO,85,OO,20,65,DO,276D 
125 DATA A5,E9,48,A5,EA,48,20,17,CF,24,28,30,OD,AD,E3,BF,2EF8 
130 DATA FO, 03,4C,CC,95,68,68,4C,70,DO,68,68,20,DO,D7,A2,372D 
135 DATA OO,AO,OO,8D,E2,BF,C9,OO,F0,16,Bl,OO,91,02,B1,91,3E50 
140 DATA 91,OO,CB,E8,EC,E2,BF,FO,07,EC,El,BF,DO,EC,FO,14,4961 
145 DATA EC,E1,BF,FO,OF,B1,OO,91,02,A9,20,91,OO,C8,EB,EC,5226 
150 DATA El,BF,DO,Fl,20,A5,96,18,A5,OO,69,28,85,OO,A5,01,595B 
155 DATA 69,00,85,01,18,A5,02,6D>E1,BF,85,02,A5,03,69,00,5EAE 
160 DATA 85,03,EE,E3,BF,AD,E3,BF,C9,18,DO,81,18,A9,A8,6D,681D 
165 DATA EO, BF,85,00,A9,BB,69,OO,85,01,AD,E3,BF,8D,E4,BF,7113 
170 DATA 20,A5,96,20,E8,C5,C9,OA,DO,20,AD,E4,BF,C9,01,FO,7A08 
175 DATA F2,CE,E4,BF,20,A5,96,18,A5,OO,69,28,85,OO,A5, Ol,813F 
180 DATA 69, OO, 85,01,20,A5,96,18,90,D9,C9,OB,DO,21,AD,E4,8860 
185 DATA BF,CD,E3,BF,FO,CD,EE,E4,BF,20,A5,96,38,A5,OO,E9,92FD 
190 DATA 28,85,00,A5,01,E9,00,85,01,20,A5,96,18,90,B4,C9,993F 
195 DATA 1B,DO,04,A9,OO,FO,OE,C9,OD,DO,A8,38,AD,E3,BF,ED,A197 
200 DATA E4,BF,18,69,01,20,24,DF,68,85,EA,68,85,E9,20,88,A934 
205 DATA D1,AO,OO,98,AA,B5,DO,91,B6,C8,CO,05,DO,F5,18,A9,B2C6 
210 DATA OO, 85, 02, A9, AO, 85, 03, 18, A9, A8, 6D, EO, BF, 85, 00,-A9, B9C1 
215 DATA BB,69,OO,85,01,AO,OO,B1,02,91,00,C8,CC,E1,BF,DO,C153 
220 DATA F6,18,A5,00,69,28,85,t»0,A5,01,69,00,85,Ol,18,A5,C66E 
225 DATA 02, 6D, El, BF, 85, 02, A5, 03, 69, OO, 85, 03, CE, E3, BF, AD, CDBA 
230 DATA E3,BF,DO,D1,60,A0,00,B1,00,18,69,80,91,OO,C8,CC,D5D4 
235 DATA El,BF,DO,F3,60,55,OO,OO,OO,OO,OO,OO,OO,OO,OO,OO,D9EC 


5 ; LOGICIEL D'OUVERTURE 
DE MENUS 

6 : DEROULANTS 


(c) Eric Viel 11/ 


10 ; Attention : Version 
ATMOS 

11 . ======= 


13 ; Pour obtenir la vers 
ion ORIC, 

14 , 

15 ; remplacer les partou 
t ou cela 

16 ; est indique les lign 
es, ou les 

17 ; valeurs indiquées. I 
1 peut 

18 ; par-fois etre necessa 
i re de 

19 ; mettre ou enlever de 


ORG $9500 


VALEURS ATMOS 
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37 

38 

R CES 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


SYNTAX 

DISP 

VALUE 

ILLEG 

CHKCOM 

GETADR 

EXPRVAL 

AFFCHAR 

TOUCHE 

ADANSAQ1 

ADRE 


$D070 

$DAFD 

$D8C8 

$D336 

$D065 

$D7D0 

$CF17 

$CCD9 

$Ç5E8 

*DF24 

$D188 


; POUR ORIC 1 REMPLACE 


; LIGNES PAR : 


YNTAX 

ISP 

ALUE 

LLEG 

■HKCOM 

ETADR 

XPRVAL 

FFCHAR 

DUCHE 

DANSAQ1 


$CFE4 
$DA72 
$D80D 
$D2A0 
$CFD9 
$D715 
$CE8B 
$CC12 
$C5F8 
*DF 15 
$D0FC 


54 POS 

55 LAR 

56 XLAR 

57 LIGNE 


EQU $BFEO 
EQU $BFE1 
EQU $BFE2 
EQU $BFE3 


58 POINTEUR EQU $BFE4 

59 ; 

60 ; 

61 ; VERIFIE MODE TEXTE 


37 






63 ; 



130 


LDY 

#oo 

202 


STA 

Ol 

64 

LDA 

*2CO 

131 


STA 

XLAR 

203 


JSR 

INVERS 

65 

CMP 

#2 

132 


CMP 

#0 

204 


CLC 


66 

BEQ 

>1 

133 


BEQ 

> 1 

205 


BCC 

<o 

67 

J MP 

DISP 

134 

\ n 

LDA 

< 00 ) , Y 

206 

>1 

CMP 

#1 1 

68 ç 



135 


STA 

(02),Y 

207 


BNE 

>1 

69 s 



136 


LDA 

(*91) , Y 

208 


LDA 

POINTEUR 

70 : INITIALISATION 

137 


STA 

(00),Y 

209 


CMP 

LIGNE 

71 î 



138 


INY 


210 


BEQ 

<0 

72 >1 

LDA 

#o 

139 


I NX 


21 1 


INC 

POINTEUR 

73 

STA 

LISNE 

140 


CPX 

XLAR 

212 


JSR 

INVERS 

74 

LDA 

#*A8 

141 


BEQ 

>1 

213 


SEC 


75 

STA 

00 

142 


CPX 

LAR 

214 


LDA 

OO 

76 

LDA 

#*BB 

143 


BNE 

K 2 

215 


SBC 

#*28 

77 

STA 

01 

144 


BEQ 

>3 

216 


STA 

00 

78 

LDA 

#00 

145 

>1 

CPX 

LAR 

217 


LDA 

01 

79 

STA 

02 

146 


BEQ 

>3 

218 


SBC 

#00 

80 

LDA 

#*AO 

147 

>1 

LDA 

(OO),Y 

219 


STA 

01 

81 

STA 

03 

148 


STA 

(02),Y 

220 


JSR 

INVERS 

82 ; 



149 


LDA 

- 

221 


CLC 


83 ; SAISIE 

F'OS 

ET LARGEU 

150 


STA 

(00),Y 

222 


BCC 

<o 

R DE LA 



151 


INY 


223 

>1 

CMP 

#27 

84 : FENETRE. VEREIFIE PO 

152 


I NX 


224 


BNE 

>1 

S+LAR<38 



153 


CPX 

LAR 

225 


LDA 

#Û 

85 : 



154 


BNE 

<1 

226 


BEQ 

>4 

86 

JSR 

CHKCOM 

155 

>3 

CLC 


227 

>1 

CMP 

#13 

87 

JSR 

VALUE 

156 


LDA 

OO 

228 


BNE 

<0 

88 

CPX 

#38 

157 


ADC 

#*28 

229 


SEC 


89 

BCC 

>1 

158 


STA 

OO 

230 


LDA 

LIGNE 

90 

J MP 

ILLEG 

159 


LDA 

01 

231 


SBC 

POINTEUR 

91 >1 

NOP 


1 60 


ADC 

#oo 

232 


CLC 


92 ; —> 

I NX 

<— ENLEV 

161 


STA 

01 

233 


ADC 

#1 

ER LE ; ET 



162 


CLC 


234 

>4 

JSR 

ADANSAQ1 

93 ; 


LES F 

163 


LDA 

02 

235 


PLA 


LECHES 



164 


ADC 

LAR 

236 


STA 

*EA 

94 ; 


POUR 

165 


STA 

02 

237 


PLA 


OR IC 1 



166 


LDA 

03 

238 


STA 

*E9 

95 

STX 

POS 

167 


ADC 

#00 

239 


JSR 

ADRE 

96 

JSR 

CHKCOM 

168 


STA 

03 

240 


LDY 

#oo 

97 

JSR 

VALUE 

169 


INC 

LIGNE 

241 

>2 

TYA 


98 

TXA 


170 


LDA 

L IGNE 

242 


TAX 


99 

STA 

LAR 

171 


CMP 

#24 

243 


LDA 

*D0 , X 

100 

CLC 


172 


BEQ 

SUITE 

244 


STA 

(*B6) , Y 

101 

ADC 

POS 

173 


BNE 

SAISTEXT 

245 


INY 


102 

CMP 

#38 

174 

a 

9 



246 


CF'Y 

#5 

103 

BCC 

>1 

175 

; SAISIE 

DE L OPTION G 

247 


BNE 

<2 

104 

JMP 

ILLEG 

RACE 

AUX 



248 

5 



105 >1 

CLC 


176 

; FLECHES DE 

CURSEUR 

249 

ï 

RESTORE LE 

DESSOUS 

106 

LDA 

POS 

177 

5 



E LA 




107 

ADC 

OO 

178 

SUITE 

CLC 


250 

5 

FENETRE 


108 

STA 

OO 

179 


LDA 

#*A8 

251 

5 



109 ; 



180 


ADC 

POS 

252 


CLC 


110 ; SAISIE 

?s. AFFI CHASE D 

181 


STA 

*oo » 

253 


LDA 

#00 

ES OPTIONS 



182 


LDA 

#*BB 

254 


STA 

02 

ni ; 



183 


ADC 

#00 

255 


LDA 

#*A0 

112 SAISTEXt 

JSR 

CHKCOM 

184 


STA 

*01 

256 


STA 

03 

113 

LDA 

*E9 

185 


LDA 

LIGNE 

257 


CLC 


1 14 

PHA 


186 


STA 

POINTEUR 

258 


LDA 

#*A8 

115 

LDA 

*EA 

187 


JSR 

INVERS 

259 


ADC 

POS 

1 16 

PHA 


188 

>0 

JSR 

TOUCHE 

260 


STA 

OO 

117 

JSR 

EXPRVAL 

189 


CMP 

#10 

261 


LDA 

#*BB 

1 18 

BIT 

*28 

190 


BNE 

>1 

262 


ADC 

#oo 

1 19 

BMI 

>1 

191 


LDA 

POINTEUR 

263 


STA 

Ol 

120 

LDA 

LIGNE 

192 


CMP 

#1 

264 

> 1 

LDY 

#00 

121 

BEQ 

'> 2- 

193 


BEQ 

<o 

265 

’*> 9 

LDA 

(02),Y 

122 

JMP 

SUITE 

194 


DEC 

POINTEUR 

266 


STA 

( 00 ) , Y 

123 >2 

PLA 


195 


JSR 

INVERS 

267 


INY 


124 

PLA 


196 


CLC 


268 


CPY 

LAR 

125 

JMP 

SYNTAX 

197 


LDA 

OO 

269 


BNE 

y n 
y— 

126 >1 

PLA 


198 


ADC 

#*28 

• 270 


CLC 


127 

PLA 


199 


STA 

OO 

271 


LDA 

00 

128 

JSR 

GETADR 

200 


LDA 

01 

272 


ADC 

#*28 

129 

LDX 

#o 

201 


ADC 

#oo 

273 


STA 

00 
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274 


LDA 

01 

275 


ADC 

#00 

276 


STA 

01 

277 


CLC 


278 


LDA 

02 

279 


ADC 

LAR 

280 


STA 

02 

281 


LDA 

03 

282 


ADC 

#00 

283 


STA 

03 

284 


DEC 

LIGNE 

285 


LDA 

LIGNE 

286 


BNE 

<1 

287 


RTS 


288 

? 



289 

; INVERSE 

: LE 

MESSAGE P 

OINTE 

PAR 



290 

; 00/01. 

«EN 

FAIT, INV 

ERSE 

b7 ) 



291 

; 



292 

INVERS 

LDY 

#oo 

293 

>1 

LDA 

(00),Y 

294 


CLC 


295 


ADC 

#$80 

296 


STA 

(OO),Y 

297 


I NY 


298 


CRY 

LAR 

299 


BNE 

<1 

300 


RTS 



DERNIERE MINUTE : 

AFIN D'OBTENIR UN MENU EN 
INVERSION VIDEO, IL CONVIENT 
DE MODIFIER LE LISTING 
COMME SUIT : 

LIGNE 155 : JST INVERS 
INSERER UNE LIGNE 156 : CLC 


TOUT 


AUGMENTE ! 



NON, 


LE PRIX DES 
DISQUETTES DE 
THEORIC BAISSE ! 

116 F pour les abonnés 
146 F pour les non- 
abonnés ! 

Bon de commande page 50 


AMPLI-BUS : 

FAITES LE 
VOUS-MEME 

L a société TRAN ne fabriquant plus l'ampli-bus, remède à bien 
des maux lors du couplage de l’ORIC à un périphérique, ses res¬ 
ponsables ont eu la gentillesse de nous transmettre ce schéma 
afin d’en faire profiter le maximum de lecteurs. 


AMPLI-BUS 


BUS ATMOS 

rP Nom 


CONNECTEUR 
1 2 3 


10 

12 

9 

16 

18 

19 

14 

22 


DO 

DI 

D2 

D3 

D4 

D5 

D6 

D7 


-10 

-10 

-* 10 

- 12 

-.12 

V 2 

. 9 

„ 9 

l 9 

-16 

-16 

-# 16 

- 18 

-18 

-» 18 

-19 

-19 

-* 19 

-14 

-14 

-* 14 

.22 

22 

..22 


13 

15 - 17-11 

20-21-23-25 

27-29-31 

32-30-28-26 

24 


AQ _I 74LS244 OU 241 # 13 , 13 a 13 


£ 5 ^ 


Al 5 




74LS244 OU 241 ^ 24 * 24 * 24 


33 

34 
1 

2 ' 

4 

5 

6 

7 

8 


+5V 

GNP 

MAP 

ROMDIS 

RESET 

I/O 

I/O CONTROL 
R/W 
IRQ 


^GND fr.Vcc 

| w circuits | w circuits 

-33 

-33 

-33 


-34 

-34 

-I 34 


. 1 

. 1 

1 


; 2 

. 2 

- 2 


I 4 

. 4 

- 4 


! 5 

[ 5 

- 5 

r-v- 74LS244 OU 241 

. 6 

: 6 

- 6 

kr 

. 7 

„ 7 

- 7 

74LS244 OU 241 

. 8 

_ 8 

- 8 
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Le bus n'est pas amplifié à l'origine 
et certains de ses signaux, plus par¬ 
ticulièrement le signal d'horloge qui 
rythme l'ensemble de votre micro¬ 
ordinateur, sont déjà sollicités. De 
ce fait, dès qu'on branche une ex¬ 
tension quelconque sur ce BUS, 
les signaux ne sont plus assez puis¬ 
sants pour être corrects et arrivent 
même à fausser certaines informa¬ 
tions échangées par suite de dé¬ 
synchronisation. 

C'est ainsi que vous ne pouvez 
plus charger un programme sur cas¬ 
sette ou que vous apercevez sur 
votre écran des caractères hystéri¬ 
ques, ou encore des messages 
d'erreur aberrants. Le blocage du 
clavier et du micro-ordinateur peut 
intervenir et vous pouvez mettre en 
cause injustement des périphéri¬ 
ques qui ne sont nullement respon¬ 
sables, sauf que ces anomalies 
n'apparaîtraient pas s'ils n'étaient 
pas branchés sur le BUS. 
L'AMPLI-BUS n'est pas une simple 
prise multiple, mais un véritable ap¬ 
pareil actif. Il remet en forme et am¬ 
plifie les signaux nécessaires et 
prend soin particulièrement du si¬ 
gnal d’horloge. Comme le BUS est 


maintenant amplifié, vous pouvez 
brancher jusqu'à trois périphéri¬ 
ques à la fois, grâce aux trois con¬ 
necteurs d'extension de l’AMPLI- 
BUS. 

BRANCHEMENT 
DE L’AMPLI-BUS 


- Vérifier que votre micro-ordina¬ 
teur et que chaque périphérique 
ne soit sous tension, sous peine 
de graves dommages. 

- Débrancher tout périphérique 
du BUS d'extension. 

- Insérer la prise "femelle" (34 
points) de l'AMPLI-BUS dans le 
port d’extension de l'ORIC 1 ou 
ATM OS. 

- Vous disposez maintenant de 
trois prises mâles pour connecter 
trois périphériques de votre choix, 
à condition que ces derniers aient 
les connecteurs femelles corres¬ 
pondants. Si ce n'est pas le cas, se 
procurer des adaptateurs. 

- Un connecteur spécial ou inver¬ 
seur sert à filtrer spécialement le si¬ 
gnal d'horloge. 


Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise I 

Lorsque ce levier est incliné vers 
l’intérieur du boîtier, le signal d'hor¬ 
loge est filtré sévèrement et doit, 
par conséquent, être utilisé en cas 
de forte anomalie ; mais l'écran ris¬ 
que, dans ce cas, de présenter des 
zébrures. 

-Le lecteur JASMIN qui possède 
déjà un ampli interne doit obligatoi¬ 
rement se brancher au connecteur 
extrême. 

- Remettre sous tension votre 
micro-ordinateur et l'ensemble de 
vos périphériques. 

N'oubliez pas qu'une vérita¬ 
ble prise de terre est réelle¬ 
ment nécessaire au bon fonc¬ 
tionnement de l'ensemble de 
votre système... 



Nom .Prénom. 

Adresse .Code Postal .Ville 


Bon de commande et règlement à envoyer à : Editions SORACOM - La Haie de Pan - 35170 BRUZ 
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Fractals en langage 

machine 


W. Luther 


N ous proposons un module en langage machine contenant toutes 
les routines du calcul simple. 

Une application permet la création des fameuses pommes- 
mâles de B. Mandeibroit sur l'écran à une définition de 120 points en 
largeur et 100 points de hauteur. 


Nous avons suivi avec intérêt la 
discussion sur le sort de l'ORIC 
dans les numéros précédents de 
Théorie. Les ordinateurs disposant 
d'une CPU 16/32 bits sont appa¬ 
remment en train de remplacer les - 
AMSTRAD, les ORIC et les COM¬ 
MODORE... 

Evidemment, il est bien pratique de 
se servir de la souris comme d'une 
baguette magique. Plus besoin de 
savoir lire avec les icônes, bref, le 
confort intégral. 

N'oublions pas la panoplie des lan¬ 
gages évolués sur les grandes ma¬ 
chines, le fameux PASCAL, le C, 
les langages de la cinquième géné¬ 
ration PROLOGUE et LISP qui per¬ 
mettent le développement d'une 
intelligence artificielle. Face à cela, 
ORIC fait bien mauvaise figure. Et le 
revers de la médaille : quel travail si 
on veut traverser cette surface 
GEM qui simplifie tellement la vie 
aux utilisateurs et qui cache si bien 
les interactions entre la machine et 
leSED. Arrivé au coeur de l'ordina¬ 
teur, on se retrouve dans la plupart 
des cas devant une CPU tout-à-fait 
comparable à notre 6502. Est-ce 
qu'on a vraiment besoin de C pour 
écrire un programme qui calcule les 
nombres de FIBONACCI ? Notons 


que le problème des tours de HA¬ 
NOI (cp Théorie 16) implémenté en 
MACPROLOG demande 1 Mega 
de mémoire pour traiter le cas de 



douze disques, quel progrès ! 


Nous ne voulons pas cacher les 

défauts de l'ORIC, la lenteur exas¬ 
pérante, le manque d'extensions 
hard et soft. Il n'existe même pas un 
compilateur BASIC. Pourtant, il y a 
nombre de problèmes faciles à ré¬ 
soudre dans les 64 K de l'ORIC 
Ce n’est pas le cas d'un programme 
que nous venons de réaliser. Son 
but est de calculer toutes les solu¬ 
tions du jeu télévisé bien connu 
"Le compte est bon” 15 millions de 
différentes possibilités à étudier dé¬ 
passent de loin les capacités d'une 
petite machine et demandent plu¬ 
sieurs jours de calcul. Le program¬ 
me restera donc dans le tiroir. Ce 


genre de problème a besoin du 
grand ordinateur. Allons donc vers 
une coexistence des petits et des 
grands... 

A première vue, le thème de cet 
article appartient à la même caté¬ 
gorie. Les fameux objets fractals 
imaginés et mis en évidence par B. 
Mandeibroit sont largement com¬ 
mentés dans les revues informa¬ 
tiques. 

Ces jolis motifs créés en haute réso¬ 
lution ressemblent à des animaux 
ou des pommes-mâles qui font leur 
apparition dans des échelles de 
plus en plus petites. 

Ils ont un seul inconvénient : des 
milliers d’opérations de calcul sont à 
effectuer et un graphique de haute 
résolution disposant simultané¬ 
ment de plusieurs couleurs est né¬ 
cessaire. 

La nouvelle génération d'ordina¬ 
teurs est prédestinée à ce genre 
de tâche. 

Pourquoi alors cette réalisation tar¬ 
dive surORIC ? 

Eh bien, pour plusieurs raisons. 
Laissez-moi faire une comparai¬ 
son : un vrai sportif aime mieux 
rouler à 80 km/h sur un vélo que 
dans un bolide, autrement dit, l'éco¬ 
nomie des moyens employés est 
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un facteur important. 

Le petit ordinateur oblige à optimi¬ 
ser les routines, soit en vitesse, soit 
en fonction de taille du code. 

Ainsi, nous allons démontrer qu'on 
arrive à créer un écran fractalien 
d'une résolution 120 sur 100 
points en cinq minutes seulement. 
Nous donnons à chaque pixel de 
l'écran une couleur bien définie à 
l'issue d’un algorithme assez 
simple. 

Notre accès permet d'égaliser le 
manque de vitese d'un ordinateur à 
8 bits. 

Expliquons d'abord l'algorithme : 
Nous partons d'un point aux coor¬ 
données (x,y), posons xn:=x, yn:=y 
et initialisons un compteur qui limite 
le nombre d'itérations. 

Un nouveau point est calculé de la 
manière suivante : 

xn:=(xn+yn)*(xn-yn)/64 - x 
yn:=xn*yn/32 - y, 


et le procédé se répète jusqu'à ce 



que 

abs(xn)+abs(yn) 

dépasse une valeur donnée, p. ex. 
255,511 ou 1023. 

A ce moment-là, nous prenons la 
valeur du compteur modulo 4, soit 
0,1,2 ou 3. 

Ce nombre indique la couleur que 
prendra le point de départ (x,y). 
Cependant, il se présente un pre¬ 
mier écueil. 

La définition chromatique sur y 
(200 lignes coloriables individuelle¬ 
ment) est beaucoup plus grande 
que celle sur x (38 groupes de 6 
pixels) à cause des attributs dits 
"série". 

Pour produire des couleurs discer¬ 
nables, nous avons groupé deux 
pixels sur l’horizontale et deux pi¬ 
xels sur la verticale et nous nous 
limitons ainsi à une définition 
del 14*100. 



L 


Ces cellules de base sont coloriées 
de la manière suivante : 

papier 1 

papier 2 = code 0 
papier 1 

encre 2 = code 1 
encre 1 

papier 2 = code 2 
encre 1 

encre 2 = code 3 

Ceci nous permet de visualiser 
11400 points dans le plan XY. 
Comment alors calculer rapidement 
le code de la couleur du point cou¬ 
rant ? Ce calcul nécessite jusqu'à 
600 opérations d'affectation, d'addi¬ 
tion, de multiplication,pie décalage 
ou de comparaison. 

Effectivement, l'emploi du BASIC 
est exclu à cause de la lenteur d’un 
langage interprété? Notre premier 
programme FRACBAS en fournit 
une preuve impressionnante. 

Reste une réalisation en langage 
machine. Mais les routines de calcul 
sont difficilement programmables. 
C'est pourquoi nous avons envi¬ 
sagé d'éviter complètement le cal¬ 
cul en virgule flottante au profit du 
calcul simple, beaucoup plus ra¬ 
pide. 

Ici surgit le deuxième écueil. Il 
n'existe pas toutes les routines de 
calcul simple des variables entières 
dans la ROM. 

Dans un premier temps,nous avons 
ainsi créé ce module qui propose 

• l'addition 

• la soustraction 

• les décalages 

• le complément à deux 

• la comparaison 

• la multiplication 

• la division 

de deux nombres entiers compris 
entre -32768 et 32767. 


Le module est implanté à partir de 
l'adresse #3100 jusqu’à l'adresse 
#3250 et peut servir à résoudre 
d'autres problèmes. 

Donnons un exemple d'utilisation. 

Un POKE#31 FE,#A2, 

POKE#31 FF, 2 ajuste l’index qui 
pointe #2-#3. 

Les DOKE2, #FFF0 et 
DOKE4,#FFE1 mettent-16 dans 
#2—#3 et -31 dans #4 - #5, page 
zéro. 

Un CALL #31FE effectue la 
multiplication (-16)*(-32) = 496, et 
?DEEK(0) affiche le résultat. 

Une deuxième routine en langage 
machine (#3000 - #30F3) déter¬ 
mine la couleur du pavé en faisant 
appel au module et une troisième 
routine implantée de #2F80 affiche 
les quatre pixels d'un pavé à 
l'écran. 

Cette dernière routine est prévue 
pour ATMOS. Nous donnons 
également les adresses à modifier 
pourORIC 1. 

Voici le chargeur intégral en BASIC 
qui met tous les éléments en place. 
Nous ajoutons un désassemblage 
commenté des parties importantes. 
Finalement, le programme 
FRACLM écrit en BASIC crée les 
tractais à l'écran en se servant des 
routines en LM. 

Il permet la modification des 
paramètres suivants : 

• les quatre couleurs 

• les coordonnées (XMIN, YM IN) 
du point à gauche en haut de 
l’écran 


• les deux pas de travail DX et DY 

• la valeur qui sert de critère d'arrêt 



Si vous voulez modifier le critère 
d'arrêt d'une façon plus radicale, il 
faut réviser la routine correspon¬ 
dante en LM. Ceci entraînera évi¬ 
demment le changement d'adres¬ 
ses dans les POKE du programme 
en BASIC. 

Quelques photos d'écran montrent 
les résultats obtenus. 






Dë-sa.ss 

erob 1 3. 9e 

24. 

11.86 

Pagel ATMOS 





colorier les pavés 

S2FS0 

R5F7 

LDR 

*F7 


*2F32 

35F5 

STR 

*F5 


*2F84 

R5F8 

LDR 

«FS 

#F5-#F6 = YMIN 

*2F 86 

85F6 

STR 

*F6 


*2F88 

R940 

LDR 

#«40 


*2F8B 

SD 1202 

STR 

*0212 

placer FB-code 1 

*2F8D 

R964 

LDR 

#*64 


*2F 8F 

85F9 

STR 

*F9 

#F9 = 100 compteur 

*2F91 

200030 

JSR 

*3000 

quelle couleur cc ? 

*2F94 

R500 

LDR 

*00 


*2'F96 

C902 

CMP 

#*02 

cc>=2? 

*2F98 

900C 

BCC 

*2FR6 

non, sauter 

*2F9R 

2016FO 

JSR 

*F016 

afficher un point 

*2F9D 

20R1F0 

JSR 

*F0fll 

déplacer vers la droite 

*2FRQ 

2016FO 

JSR 

*F016 

afficher un point 

*2FR3 

2OB2F0 

JSR 

*F0B2 

déplacer vers la gauche 

$2FR6 

4600 

LSR 

*00 

décalage à droite, cc-1 ou 3? 

*2FR8 

9013 

BCC 

S2FBD 

non, sauter 

*2Ffifl 

2089F0 

JSR 

SF033 

déplacer vers le bas 

*2FflD 

2016F0 

JSR 

*F016 

afficher un point 

*2FB0 

20R1F0 

JSR 

*F0R1 

déplacer à droite 

*2FB3 

*2FB6 

2016F0 

20B2F0 

JSR 

JSR 

*F016 

*F0B2 

afficher un point 
déplacer à gauche 

*2FB9 

R900 

LDR 

#*00 


S2FBB 

F003 

BEQ 

*2FC0 

et sauter 

*2FBD 

2089F0 

JSR 

*F083 

déplacer vers le bas 

S2FC0 

2O89F0 

JSR 

*F089 


*2FC3 

1 8 

CLC 



*2FC4 

R5F5 

LDR 

*F5 


*2FC6 

6902 

RDC 

#*02 

incrémenter Y 

*2FC8 

85F5 

STR 

*F5 


*2FCfi 

R5F6 

LDR 

*F6 


*2FCC 

63010 

RDC 

#*00 


*2FCE 

85F6 

STR 

*F6 


*2FD0 

C6F9 

DEC 

*F9 


*2FD2 

D0BD 

BUE 

*2F31 

100 pavés remplis? 

*2FD4 

18 

CLC 


U 

*2FD5 

R5F3 

LDR 

*F3 


*2FD7 

6902 

RDC 

#*02 

incrémenter X 

*2FD9 

85F3 

STR 

SF3 


«2FD B 

R5F4 

LDR 

*F4 


*2FDD 

6900 

RDC 

#*00 


*2FDF 

85F 4 

STR 

*F4 


*2FE1 
01 . . . 

60 

RTS 
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Déterminer la couleur d'un pavé 


*3000 

R5F3 

LDR 

SF3 


*3002 

8502 

STR 

*Ô2 


*3004 

R5F4 

LDR 

*F4 


*3006 

8503 

STR 

*03 

#2-#3 = XI 

*3008 

R5F5 

LDR 

*F5 


*300fi 

8504 

STR 

*04 


*3000 

R5F6 

LDR 

*F6 


*300E 

8505 

STR 

*Û5 

#4-#5 - Y1 

*3010 

R015 

LDY 

#*15 

compteur à21 

*3012 

R504 

LDR 

*04 


*3014 

8508 

STR 

*08 


*3016 

R505 

LDR 

*05 


*3018 

8509 

STR 

*09 

#8-ff9 = YN 

*301 fl 

R502 

LDR 

*02 


*30 IC 

8506 

STR 



*301E 

R503 

LDR 

*03 


*3020 

8507 

STR 

*07 

#6-#7 = *N 

*3022 

R206 

LDX 

#*06 

X=6 

*3024 

206031 

JSR 

*3160 

#6-#7 = XN - YN = B 

*3027 

R202 

LDX 

#*Û2 

X-2 

*3029 

202231 

JSR 

*3122 

#4-#5 = XN + YN * D 

*302C 

R204 

LDX 

#*04 

X*4 

Ï302E 

R906 

LDR 

#*06 

6 décalages à droite 

*3030 

8516 

STR 

*16 


*3032 

2OD030 

JSR 

S30D0 

multiplication et décalages 

*3035 

R502 

LDR 

*02 

D*B 

*3037 

8506 

STR 

*06 


*3039 

R503 

LDR 

*03 


*303B 

8507 

STR 

*07 

#6-#7 - XN 


*303D 

R5F3 

LDR 

*F3 


*303F 

8502 

STR 

*02 


*3041 

R5F4 

LDR 

*F4 


*3043 

8503 

STR 

*03 

#2-#3 = XI 

*3045 

R200 

LDX 

#*00 


*3047 

206031 

JSR 

*3160 

#04f1 = XN = DB/64-X1 

*304R 

R50O 

LDR 

*00 


*304C 

850R 

STR 

S0fl 


*304E 

R501 

LDR 

*01 


*3050 

850B 

STR 

*0B 

#A-#B - XN 

*3052 

R206 

LDX 

#*06 


*3054 

R905 

LDR 

#*05 

5 décalages à droite 

*3056 

8516 

STR 

*16 


*3058 

20D030 

JSR 

S30D0 

multiplication et décalages 

*305B 

R5F5 

LDR 

*F5 

C-XN'YN 

*305D 

8502 

STR 

*02 


*305F 

R5F6 

LDR 

*F6 


*3061 

8503 

STR 

*03 

#2-#3 . Y1 

*3063 

R200 

LDX 

#*00 


*3065 

206.031 

JSR 

*3160 

#0-#1 * YN = C/32-Y1 

*3068 

R50O 

LDR 

*00 


*306fi 

8504 

STR 

*04 


*3060 

8508 

STR 

SÛ8 


*306E 

R501 

L.DR 

*01 


*3870 

8505 

STR 

*05 


*3072 


STR 

*09 

#4-#5 = #8-#9 = YN 

*3074 

R50R 

LDR 

*0fi 
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*3076 

8502 

STR 

*02 


*3078 

R50B 

LDR 

*0B 


*3Ô7R 

8503 

STR 

*03 

#2-#3 = XN 

*307C 

R208 

LDX 

#*08 


*307E 

B501 

LDR 

*01,X 


*3080 

2980 

RHD 

#*80 

YN positif? 

*3082 

F003 

BEQ 

*3087 

oui, sauter 

*3084 

201031 

JSR 

*3110 

complément à deux 

*3087 

ES 

I NX 



$3088 

E8 

I MX 



*3089 

B501 

LDR 

*01/X 


$3y8 B 

2980 

AND 

#*80 

XN positif? 

*308D 

F0Ô3 

BEQ 

*3092 

oui. sauter 

$308F 

201031 

JSR 

*31 lû 

complément à deux 

*3092 

CR 

DEX 



*3093 

CR' 

DEX 



*3094 

200031 

JSR 

*3100 

#0-#1 = |XN| + |YN| = 

*3097 

R501 

LDR 

*01 


*3099 

C902 

CMP 

#*02 

S2512? 

*3096' 

B0O6 

BCS 

*30R3 

oui, sauter 

*309D 

oo 

DEY 


décrémenter et 

*309E 

F003 

BEQ 

*3003 

recommencer, si # 0 

*30R@ 

4C1230 

JMP 

*3012 


*30R3 

98 

T'r'fl 



*30A4 

2903 

RHD 

#*03 

déterminer code cc 

*30R6 

8500 

STR 

*00 


*30R8 

60 

RTS 



0K.. . 
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sous routine multiplication et déca- 




lages 


*30D0 

200032 

JSR 

*3200 

multiplication 

*30D3 

R900 

LDR 

#*00 


*30D5 

85C1 

STR 

*C1 


*30D7 

R501 

LDR 

*01 


*30D9 

2980 

RHD 

#*80 

résultat négatif? 

*30DB 

F007 

BEQ 

*30E4 

non, sauter 

*30DD 

85C1 

STR 

*C1 

sauver signe 

*30DF 

R200 

LDX 

#*00 


*30E 1 

201031 

JSR 

*3110 

complément à deux 

*30E4 

4601 

LSR 

*01 


*38E6 

6600 

R0R 

*00 

décalage à droite 

*30E8 

C616 

DEC 

*16 

décrémenter 

*30ER 

D0F8 

BHE 

*30E4 

recommencer, si # 0 

*30EC 

R5C1 

LDR 

*C1 

récupéf er signe 

*30EE 

F003 

BEQ 

*30F3 

sauter, si possible 

*3OF0 

201031 

JSR 

*3110 

inverser 

T. 30 F 3 

60 

RTS 



OK. . . 
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FRACLM 


FRACBAS 


1 ! LORD"CHRRFRRC.BIH" 

4 REM FRRCTftL EH LM 

5 D0KE#F7,#FF9C•DÜKE#F3,#FFBO‘DOKE#306, 
#FFFF 

6 REM YMIH EH #F7-#F8, XMIN EH #F3-#F4 

7 PÜKE#303FL3 = REM 1,2,3 CRITERE D'ARRET 
DE BOUCLE 

8 P0KE#2FC7,2■REM DY 

9 P0KE#2FD8,2REM DK 
16 H IRES ■ PRPER0 = IHK.7 
20 FORI=1TO199STEP2 

3R CUP.SET0, 1,3 FI LL 1, 1,20 
40 CORSET6,1-1,3 : FILL1,1,6 
45 REM COULEURS ! HOIR,BLRHC, BLEU, MRGE 
HTR 

50 NEXT'P0KE#214,#FF: REM PRTTERH 255 

60 FORX=12T0238STEP2 

65 CURSET X,0,3 

80 CflLL#2F80*MEXT 

85 REM REMPLIR UNE COLOHHE 

90 DQKE#306,10000 


5 REM FRRCTRL EH BRSIC 
10 HIRES ^ DOKE#30S,#FFFF■PRPER2 ■IHK3 
15 PR» 19 : D1 =64 •• D2=32 ■ D3=512 ■ D4=3 
20 FOR 1=1 TO 197 STEP 2 
30 CURSET0,1,3 = FILL 1,1,17 
40 CURSET6,I-1,3 : FILL1,1,5 
50 HEXT 

60 FOR X=ll TO 237 STEP2 
65 CURSET X,0,3 
70 FOR Y=0 TO 196 STEP 2 
E*0 GOSUB 200 

90 IF R > 1 THEH DR RU 2,0‘, 1 ■ CURMOV-2, 0, 3 
100 IF RRHD1 THEH CURMÜV0,1,3-DRRW2,0,1 
■ ClJRMOV-2,-1,3 
110 CURMOV 0,2,3 
120 MEXT■NEXT 
130 DOKE#306,10000■EHD 
190 REM COULEUR DU PCIMT COURANT 
200 N=PR■X1=X-100■Y1=Y r 100'XH=X1■YN=Y1 
210 REF'ERT 

220 D=XH+YH■B=XH-YH<C=XN*YH 

230 XH=DTB- D 1 -X1 ■ YH*C/'D2-Y1 = H=H-1 

240 UHTILH=0OR( RBS< XH>+RBS(YM > >D3 > 

250 R=NRMDD4■RETURH 


10 REM ADAPTATION ÜRIC 1 
26 DÜKE#2F9B,#EF4D 

39 DÜKE#2F9E,#Fü04 

40 DOKE#2FRI,#EF4D 
50 D0KE#2FR4,#FÔ15 
60 D0KE#2.FRB, #EFE6 
70 DÜKE#2FAE,#EF4D 
80 D0KE#2FB1,#F0Û4 
00 DÜKE#2FB4,#EF4D 
1Ü0 DOKE#2FB7,#F015 
110 DÜKE#2FBE,#EFE6 
120 D0KE#2FC1,#EFE6 


Autre cr i têre d •’ arrêt : 


! YN : 

i XN ! +1 > r.'. 

C‘d 2' 

56 >-3 

$3094 

13 

CLC 


$3695 

fl 50 fl 

LD fl 

$0fl 

$3097 

0004 

BNE 

$309D 

$3099 

6301 

flDC 

4$ 01 

$3Q9B 

85ÔH 

ST fl 

$0H 

$3090 

208031 

J SR 

$3180 


RÉM DI 

VIST 

ON 

$30 H 0 

fl 5 00 

LD Fl 

$00 

$30fl2 

C303 

CMP 

#$03 

$30 fl 4 

B 00i 6 

BCS 

$30flC 


CHARGEUR en BASIC 


10 REM MODULE CALCULS SIMPLES - 
15 REM CALCUL MODULO 65536 - 0-#FFFF - 
ATTENTION : #FFFF=-1 : #FFFE=-2 ETC 
20 REM VARIABLES EHTIERES 
30 DB=#3100 r FI = 14 REM RDDI ftOH 
40 80=989 : GOSUB 1000 
90 DB =tt3110 ■ F I = 18 ■ REM COMPLEMEHT 4’ 2 
j00 30=1649■ GOSUB 1000 


110 D6=#3122•• FI = 14■ REM ADDITION 

120 SO=1025 : GOSUB 1000 

140 DB=#3130 : FI=5 : REM SHIFT A GAUCHE 

150 S0=173 : GOSUB 1000 

190 DB=#3140 : FI=5■ REM SHIFT R DROITE 

200 SQ=301■ GOSUB 1000 

240 DE'=#3150 : F I — 1 4 • REM COMPARA I SON 
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250 30=1454= GÜSUB 10QQ 

280 DB=#3160 ; FI=14 : REM SOUSTRACTION 

230 30=1309= GÜSUB 1000 

300 DB=#3170 = FI = 14 = REM -A+B 

310 30=1313= GOSUB ÎOOO 

350 DB=#3180 = FI = 126 REM DIVISION 

360 50=10938= GOSUB1O00 

400 DE'=#3200 = FI =81 = REM MIJLTI PL I CRT I OH 

405 SO=8201 
410 GOSUB 1000 
420 REM FIN MODULE 
430 REM FRRCTRLS EN LM 
450 DB=#3000=FI=169 
460 80=15393= GOSUB 1000 
500 DB=#30D0 = FI=36 
510 30=3337= GOSUB 1000 
550 DB=#2F80 = FI=98 
568 30=12605= GOSUB 1000 
990 END 
1000 3=0 

1010 FOR N=DB TO DB+FI-1 
1020 RERD R$ = VA=VRL< " # " +R$ ) = S=S+VR = ROKE 

n , vr = ne:==:t 

1030 IF S< >30 THEN PING = PRINT"ERREUR"=S 
TOP 

1048 RETURN 
1100 REM ADDITION 

1110 REM X INDEXE DEUX NOMBRES EN PAGE 
0, R EN #0X-#X+1, B EN #X+2-#X+3 
1120 REM C=A+B; RESULTAT EH #00-#01 
1140 DRT R 18.. B5.. 00 .■ 75.. 02, 85,00, B5.. 01,75 
.03,. 85.. 01..60 

1200 REM COMPLEMENTATION R DEUX 

1210 REM X INDEXE UN NOMBRE R EH PAGE 0 

1220 RESULTAT EN PAGE 0 INDEXE X=-R • 

1230 DRT R 18.. B5 , 00, 49 .• FF , 69 , 01 , 95 .• 00 .■ B5 
, 01,49, FF, 69,00,95,01,60 
1250 REM ADDITION 

1260 REM X INDEXE DEUX NOMBRES R ET B E 
N PAGE 0 

1270 REM RESULTAT R+B EN #X+2-#X+3, PAG 
E 0 

1280 DATA 18,65,00,75,02,95,02,85,01,75 
,03,95,03,60 

1300 REM DECALAGE A GAUCHE 
1310 REM X INDEXE UN NOMBRE A EN PAGE 0 
1320 REM RESULTAT EN PAGE 0 INDEXE X 
1330 DATA 16,00,36,01,60 
1400 REM DECALAGE A DROITE 
1410 REM X INDEXE UN NOMBRE EN PAGE 0 
1420 REM RESULTAT EN PAGE 0 INDEXE X 
1425 REM C CONTIENT BIT 0 
1430 DATA 56,01,76,00,60 
1500 REM COMPARAISON 

1510 REM X INDEXE DEUX NOMBRES A ET B E 
N PAGE 0 

1520 REM C=1 SI A>B, 2=1 SI A=B 
1530 DATA 38,B5,00,F5,02,85,99,B5,01,F5 
,03,05,99,60 
1550 REM SOUSTRACTION 

1560 REM X INDEXE DEUX NOMBRES A ET B E 
N PAGE 0 

1570 REM #X-#X+1 CONTIENT R-B 
1580 DATA 38,B5,00,F5,02,95,0ü,B5,01,F5 
,03,95,01,60 
1600 REM SOUSTRACTION 

1610 REM X INDEXE DEUX NOMBRES A ET B E 
N PAGE 0 

1620 REM #X+2-#X+3 CONTIENT -A+B= = B 
1630 DATA 38,B5,02,F5,00,95,02,B5,03,F5 


,01,95,03,60 

1700 REM DIVISION ENTIERE 
1710 REM X INDEXE DEUX NOMBRES A ET B E 
N PAGE O CB NON SIGNE > 

1720 REM #00-#01 CONTIENT LE QUOTIENT 
1725 REM #X-#X+1 LE RESTE 
1730 DATA A9,00,85,Cl 

1740 DAT A B5,01,29,80, FO, 05, 85 .Cl • 20 • 10 
,31 

1750 DATA B5,00,85,0E,B5,01,85,0F,A9,00 
,85,00,85,01,B5,02,85,0C,B5,03,85,OD 
1760 DATA A9,01,95,00,A9,00,95,01,86,BB 
, À2, OC, 20,50,31, FÛ, 1D, E'0, 2F 


176 

5 

DATA 

20 , 

30 , 

31, A6 , 

BB, 

20 , 

30.. 

31, 

A2. 

■ 0C 

,20, 

50 

,31,: 

90,F1,F0,8A 







177 

0 

DATA 

20 , 

40, 

31, A6, 

BB, 

20 , 

40.. 

31, 

A2. 

■ 0C 

,20, 

70 

,31 










177 

1 

DATA 

A6 

, BB 

,B5,OO 

,05 

;, se 

l , 85 . 00 


177 

CT 

_l 

DATA 

B5, 

01 , 

05,01, 

85 , 

01 , 

4C , 

9D, 

31. 

. A6 


,BB,A5,0E,95,00,A5,0F,95,01 
1780 DATA A5,C1,F0,08,20,1O,31,A2,00,20 
,10,31,60 

1800 REM MULTIPLICATION 
1810 REM X INDEXE DEUX NOMBRES A ET B E 
N PAGE 0 

1820 REM #Ü0—#01 CONTIENT LE PRODUIT 
1830 DATA A9,OQ,85,C1,B5,O1,29,80,F0,05 
1840 DATA 85,C1,20,10,31,B5,03,29,80,FO 
, OB 

1850 DATA 45,Cl,85,Cl,ES,ES,20,10,31,CA 
,CA,A9,00,85,0O,85,O1,A9,OF,85,0F 
1860 DATA E8,E8,20,40,31,CA,CA,90,OD,18 
, A5, OO, 75, 00, 85,00, A5, 01,75, 01,85, 01 
1870 DATA 20,30,31,C6,0F,D0,E3,A5,C1,F0 
,05,A2,OO,20,10,31,60 
1990 REM CALCUL COULEUR D'UN POINT 


2000 

DATA 

A 5 

.• P J .* 85 .• 0^! 

, A5,F4 

.« 85 

, 03. 

■ A5. 

. F5 

,85,04 

, A5, 

F6, 

85,05,AO, 

15 






2 1 00 

DATA 

A 5 

,04.85,08 

,A5 

.. 05 

,85 

,09. 

. A5. 

■ 02 

,85,06 

,A5, 

03, 

85,07,A2, 

06, 

20, 

60, 

31 



22O0 

DATA 

A2 

,02,20,22 

.• 31 

,A2 

, 04 

, A9. 

■ 06. 

• 85 

,16,20 

, DO, 

30 








230O 

DATA 

A5 

,02,85,06 

,A5 

, 03 

.* 85 

,07, 

. A5, 

■ F3 

,85,82 

,A5, 

F4, 

35,03,A2, 

00 , 

20, 

60, 

31 



2350 

DATA 

A5 

,OO,85,OA 

, A5 

,01 

O ET 
t 

,0B, 

. A2. 

' 06 

,A9,05 

, 85, 

16, 

20,DO,30 







24O0 

DATA 

A5 

,F5,85,02 

,A5 

,F6 

,85 

,03, 

■ A2, 

00 

,20,60 

,31, 

A5, 

00,85,04, 

85.. 

08, 

A5, 

01 



2450 

DATA 

y5 

,05,85,09 

,A5 

, OA 

.* 85 

, 02, 

■ AS, 

OB 

,85,03 

,R2, 

08. 

B5,01,29, 

80 






2460 

DATA 

FO 

,03,20,10 

,31 

, ES 

, E8 

,B5, 

01, 

29 

,80,FÛ 

, 03, 

20, 

10,31,CA, 

CA, 

20, 

00, : 

31 



2470 

DAT A 

A5 

, 01,C9,02 

, E'0 

, 06 

.• y y 

, FO, 

03.. 

4C 

,12,30 

, 98, 

29, 

03,85,00, 

60 







2490 REM SOUSROUTINE MULTIPLICATION ET 
DECALAGES 

250O DAT A 20,00,32,A9,00,85,C1,A5,01,29 
, 80 , FO , 07 , 85 , C1 , A2 , 00 , 20 , 10 , 31 , 46 , O1 
2600 DATA 66,00,06,16,D0,F8,A5,Cl,F0,03 
,20,10,31,60 

2990 REM AFFICHER UNE COLONNE 
3000 .JD 1 A TR R5, F7,85, F5, A5, F8,85, FS, A9,40 
, 8D, 12 r , 02, A9,64,85, F9 

3100 DATA 20,00,30,A5,00,C9,02,90,OC•20 
,16,FO,20,Al,FO,20,16,F0,20,B2,FO 
3200 DATA 46,00,90,13,20,39,F0,20,16,F0 
,20,A1,FO,20,16,FO,20,B2,FO 
3300 DATA A9,OO,FO,03,20,89,FO,20,89,F0 
,13,A5,F5,69,02,85,F5 

3400 DATA A5,F6,69,00,85,F6,C6,F9,D0,BD 
.18,A5,F3,69,02,85,F3 
3500 DATA A5,F4,69,00,85,F4,60# 
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1 - motif face 

2 - motif côté 

3 - motif dessus 
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TRACE 

D’HISTOGRAMMES EN 3D 

Une image 
vaut mieux que 
mille paroles 

(PROVERBE CHINOIS) 



- Pour tracer une barre d'histo¬ 
gramme de motif M (1 < = M < = 12), 
de hauteur HT, de largeur LA carac¬ 
tères, décalée de DP caractères par 
rapport au point de base 

Faire :CALL #9300, DP, HT, 

SENS, LA, MOTIF-FACE, RELIEF, 
MOTIF-COTE, MOTIF-DESSUS 


avec : 

RELIEF =0‘a plat' 

= 1 ‘relief " 

SENS = 0 ‘barre montante' 

Claude ROUGE _ -j‘barre descendante' 


N ous allons entamer la réalisation d'un ensemble de traitements 
permettant de transformer automatiquement un tableau de 
chiffres, en une représentation d'histogrammes sur l'écran 

H ires. 


Cette réalisation se déroulera en 3 
parties : 

1- Création d'un module assem¬ 
bleur de tracé de barres sur écran 
Hires. 

2- Utilisation du module précédent 
dans un sous-programme Basic gé¬ 
néral de tracé, effectuant les calculs^ 
d'échelles et la présentation. 



3- Programme général d'utilisation 
du sous-programme Basic précé¬ 
dent. 

Nous pourrons alors très simple¬ 
ment obtenir des dessins tels que 
celui de la figure 1. 

Le logiciel a été développé sur JAS¬ 
MIN, mais pourra être adapté par 
l'utilisateur sur un autre type de ma¬ 
tériel. 

Le module assembleur HISTO. 
CMD permet en mode HIRES de tra¬ 
cer une barre. 

Pour utiliser ce module : 

- Doker à l'adresse 0 une adresse 
de base de tracé qui corresponde à 
une adresse d'écran, (voir figure 2). 

Pour prendre le coin A comme base de tracé : 
adresse AD = #A000 + 40* 150 + 3 
DOKEO;AD 


Les motifs utilisables (numérotés 
de 1 à 12) sont ceux de la figure 3 : 



Numéro de Motif: 

1 23456789 10 11 12 


Le programme assembleur sera 
écrit, à l'aide d'un assembleur (elle 
est bonne !) ou, pour ceux qui 
n’en possèdent pas, grâce à un 
chargeur BASIC. 

Le langage machine, après avoir 
été implanté en mémoire, sera sau¬ 
vegardé sur support magnétique. 
Par exemple sur : 

CSAVE "HISTO. BIN", A#9300, 
E#9557. 

Dans le prochain numéro de THE- 
ORIC, nous verrons comment utili¬ 
ser la routine de tracé au sein d'un 
programme BASIC. 


10 A=#9300: F=#9558: L=10Û: REPEAT : FOR A=A TO A+15:READ C$ 

20 K- VAL < "#"+C*> : S=S+K+65536* (S+K>65535) : IF A<=F THEN POKE A, K 
30 NEXT:READ D$: IF S=VAL<"#"+D$) THEN L=L+5:UNTIL A>F: END 
40 PING:FRINT"Erreur ligne";L 

100 DATA 4C, B3,93,FF,55,00,01,E4,05,03,OF,F6,17,E6,F7,CO,07BC 
105 DATA 20, CO, 20, FF, 55,00,01, E4,05,03,OF,F6,17,E6,F7, CO, 0E86 ^ 
110 DATA 20,CO,20,18,A5,00,65,16,85,09,85,10, A5, 01,69,OO,12F0VA 
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115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


85,OA, 
85,11, 
09,85, 

93.20, 
93,4A, 
93,38, 
01,9D, 
60,A5, 
DO,F5, 
86,BB, 
C5,D8, 
A5,05, 
A5,99, 
FO,OD, 
06,FO, 
07,AO, 
03,20, 
BD,03, 
A9,60, 
A9,41, 
20,7F, 
ÔO,B1, 
48,25, 
05,OC, 
A5,08, 
95,C6, 
03,FO, 
C6,0E, 
A6,04, 
BD,OF, 
05,OD, 
A6,04, 
91,10, 

60.20, 
25,OC, 


85.11.60, 
60,A2,10, 
10,A5,0A, 
89,FO,A5, 
90,04,09, 
6A,9D,0F, 

10.93.60, 
08,85,07, 
60,20,C5, 
20,C5,D8, 
86,06,EO, 
85,08,20, 
DO,01,60, 
20,1D,94, 
09,20,70, 
00,20,3E, 
70,94,A6, 
93,29,3F, 
85, OC,DO, 
85,OC,DO, 
94,20,14, 
10,48,A6, 
OC,1D,10, 
60,20,7E, 
85,07,20, 
07,DO,F9, 
03,20,6D, 
DO,CC,60, 
BD, 03,93, 
93,85,OC, 
05,OC,09, 
BD,03,93, 
60,20,35, 
7F,94,20, 
85,OC,20, 


18,A5, 

BD, 12, 
85, 1 r, 

11.85, 
20,BO, 
93,EO, 
20,99, 

AO, 00, 
D8,86, 
86,05, 
00,FO, 
C5,D8, 
20,23, 
20,4F, 
94,20, 

94.20, 
02,E4, 

48, A5, 
14,A9, 
04,A9, 

95.20, 
03,BD, 

93.85, 
93,A6, 
4F,93, 
20,33, 
93,A2, 
AO,OO, 
25,OD, 

49, FF, 
40,29, 
20,14, 
93,A5, 
FD,94, 
OB,95, 


10,69, 
93,9D, 
A5,BB, 
OA,A5, 
02,29, 
02,FO, 
93,60, 
A9,7F, 
16,20, 
86,08, 
0C,C6, 
CA,86, 
93,20, 
93,C6, 
AC,94, 
35,93, 
03,FO, 
07,C5, 

61.85, 

40.85, 
7E,93, 
03,93, 
OC,68, 
03,20, 
20,E5, 
95,A6, 
00 , 20 , 
Bl,10, 
85,OD, 
85,OD, 
7F,91, 
95,A5, 
0E,C9, 
25,OD, 
60,55, 


01,85, 
02,93, 
DO,06, 
10,85, 
DF,9D, 

OB, 20, 
BD,ÎO, 
91,10, 
C5,D8, 
20,C5, 
08,DO, 
03,20, 
Al,93, 
99,DO, 
20,43, 
C6,07, 
03,20, 
08,DO, 

OC, DO, 
OC,68, 
A6,03, 
85,OC, 
49,FF, 
6D,93, 
94,C6, 
03,20, 
7E,93, 
20,FD, 
20,OB, 
68,60, 
10,60, 
0E,C9, 
01,DO, 
85,OD, 
00 , 00 , 


10,A5, 
CA,DO, 
20,95, 
09,60, 
03,93, 
99,93, 
93,4A, 
20,35, 
86,99, 
DS,CA, 
08,A9, 
C5,D8, 
20,4F, 
F6,20, 
93,60, 
DO,F6, 
6D,93, 
10,C9, 
0E,C9, 
05,OC, 
20,6D, 
A2,OO, 
85,OD, 
60,A9, 
07,FO, 
6D,93, 
A2,02, 
94,25, 
9^,60, 
A2,02, 
20,35, 
01,DO, 
05,A9, 
A6,04, 
00 , 00 , 


11,69, 
F7,60, 
FO,4C, 
18,BD, 
60,BD, 
90,05, 
9D,10, 
93,C6, 
20,C5, 
86,02, 
OO,85, 
CA,86, 
93,C6, 
Al,93, 
A5,08, 
A5,06, 
60,A6, 
01,FO, 
01,DO, 
91,10, 
93,60, 
BD,OF, 
68,25, 
06,85, 
07,20, 
A6,04, 
20,7E, 
OC,85, 
48,A2, 
BD,10, 
93,AO, 
04,A9, 
7F,91, 
BD,03, 
00 , 00 , 


OO,1760 
A5,1F32 
64,25AO 
03,2B8C 
OF,313F 
09,377A 
93,3DB1 
07,4368 
D8,4C7F 
20,53C5 
06,5AA4 
04,61FC 
99,68F6 
A5,70E4 
85,76EF 
FO,7D9E 
02,836F 
06,898B 
06,9022 
60,9565 
AO,9B5B 
93,A0F2 

OD, A598 

OE, AAA5 
IB,B078 
E4,B7E2 
93,BDAO 
OC,C444 
02,C911 
93,CFA7 
OO,D344 
7F,D983 
10,DF87 
93,E58C^ 
00,E7C3(B) 


Assemblâge 
0000 
0000 
0000 
0000 
0000 
0000 
oobo 
0000 
0000 
0000 
9300 

9303 LECT 

9303 LIGSUP 

9303 LI6INF 

9303 MOTIF 

9306 

9309 

930C 

930F MASO 

9312 

9313 SVMOT 
9316 

9319 
93 IC 

931F SVMASO 


FF5500 

01E405 

030FF6 

17E6F7 

C020C0 

20 

FF5500 

01E405 

030FF6 

17E6F7 

C020C0 

20 


Histogrammes 
(en- rel ie-f ) 

CALL#9300,ROSIT, 
HAUT,SENS,LARE, 
MOTIF,RELIEF, 
COTE,DESSUS 

$9300 

DEBUT 

$D8C5 

$F089 

$FC95 

FF550001E405 

030FF617E6F7 

C020C020 

FF550001E405 

030FF617E6F7 

C020C020 

Calc.Adr.Base 


Incr.Adr.Horiz. 


Rest aur . Mot i -f s 


INIMOT A210 
IN01 BD1293 
9D0293 
CA 
D0F7 
60 


PASLIG A509 


#$10 

SVMOT-1,X 
MOTIF—1,X 


Changt.Ligne.Ecran 
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ST A 

$10 


9 3F 8 


20A193 

J SR 

DEBFIN 

94AC 



REM 

Dessus Relief 

Q-r=-- 


A50A 

LDA 

fOA 


93FB 


204P93 

J SR 

PASLIG 

94AC 



REM 


<>*' CC 1 


85 T 1 

STA 

fil 


93FE 


C6C5 

DEC 

$99 

94AC 

DESSUS 

A906 

LDA 

#$06 

•--57 


A5BB 

LDA 

f BB 


9400 


FOOD 

BEQ 

BCL3 

94AE 


850E 

STA 

$0E 

Ç" c iO 


DO 06 

BNE 

PASO 1 


9402 

BCL2 

201D94 

J SR 

BOUCLE 

74B0 

DEbBCL 

A 50 8 

LDA 

$08 

935E 


2095F0 

J SR 

LIGINF 


9405 


204F93 

J SR 

PASLIG 

94B2 


fcf5u / 

STA 

$07 

935E 


4C6493 

■? MP 

PAS 02 


9408 


C699 

DEC 

$99 

94 B 4 


204F93 

J b K 

PASLIG 

9361 

PASO 1 

2089F0 

J SR 

LIG3UP 


940A 


DOFô 

BNE 

BCL2 

94B7 


20E594 

JSR 

CHAR 1 

9364 

P AS 02 

A511 

LDA 

fil 


940C 


20A193 

J SR 

DEBFIN 

94BA 


L60 / 

DEC 

$07 



850A 

STA 

f OA 


940F 

BCL3 

A506 

LDA 

$06 

94BC 


F007 

BEQ 

DES001 

9368 


A510 

LDA 

f 10 


941 1 


F009 

BEQ 

F INF IN 

94BE 

DESBCX 

201B95 

JSR 

CHAR2 

936A 


8509 

STA 

f 09 


9413 


207094 

J SR 

COTE 

94C1 


C607 

DEC 

$07 




RTS 



9416 


20AC94 

J SR 

DESSUS 

94C3 


D0F9 

BNE 

DESBCX 

c? “-.An 



REM 

Rotat.Mot 1 f 


9419 


204393 

J SR 

INIMOT 

94C3 

DES 001 

203395 

J SR 

CHAR3 

93<bD 



REM 



94 IC 

FINFIN 

60 

RTS 


94C5 


A 60 3 

LDX 

$03 

9?6D 

POTMOT 

18 

CLC 



94 1D 



REM 

Trace Haut.Totale 

94Ch 


206D93 

JSR 

ROTMOT 

936E 


BD0393 

LDA 

MOT IF .y 


941D 



REM 


94CD 


A 60 4 

LDX 

$04 

077 1. 


4A 

LSR 



94 1D 

BOUCLE 

A50*3 

LDA 

*08 

94C- 


1403 

CPX 

$03 

C?T ,77 


9004 

BCC 

ROT 01 


941F 


8507 

STA 

$07 

94D1 


F003 

BEQ 

DE3oo2 

9394 


0 30 

□RA 

#$20 


9421 


AOOO 

LDY 

#$00 

94D3 


206D93 

JSR 

ROTMOT 

937t. 


B 002 

BCS 

RQT02 


9423 

BCLX 

203E94 

J SR 

CHARG 

94D6 

DES002 

A 200 

LDX 

#f 00 

9378 

ROT 01 

29DF 

AND 

#f DF 


9426 


203593 

J SR 

INK 10 

94D8 


207E93 

JSR 

ROTMAS 

937A 

ROT 02 

9.D0393 

STA 

MOTIF,X 


7429 


C607 

DEC 

$07 






937D 


60 

RTS 



942B 


D0F6 

BNE 

BCLX 

94DD 


207E93 

J Sk 

ROTMAS 

937E 



REM 



942D 


A506 

LDA 

$06 

94E0 


C 6 ÛE 

DEC 

$0E 

937E 



REM 



942F 


F 003 

BEQ 

FINBOU 

94E2 


DOCC 

BNE 

DESBCL 


ROT MAS 

BD0F93 

LDA 

MASQ,X 


94 31 


207094 

J SR 

COTE 

94E4 


60 

K î b 


•331 


38 

SEC 



9434 

FINBÜU 

A602 

LDX 

$02 

94E5 



REM 

Partie Gauche 



6 A 

ROR 



9436 


E403 

CPX 

$03 

94Eo 



REM 


7333 


9D0F93 

STA 

MASO,X 


9438 


F 003 

BEQ 

FINBXX 

94E5 

CHAR 1 

AOOO 

LDY 

#$00 

9386 


E0Q2 

CF’X 

#$02 


94 3A 


206D93 

J SR 

ROTMOT 

94E7 


B 1 10 

LDA 

($ 10 ),Y 

9338 


FOOB 

BEQ 

ROTMOI 


94 3D 

FINBXX 

60 

RTS 


94EV 


20FD94 

JSR 

FINMOK 

938A 


20999 - 

J SR 

ROTMMM 


943E 



REM 

Charg.Mot 1 f 

94EC 


250C 

AND 

$0C 

93QD 


9005 

BCC 

R0TM02 


943E 



REM 


94Et 


B50C 

STA 

$0C 

p —op 


0901 

OR A 

#$ 01 . 


943E 

CHARG 

A602 

LJDX 

$02 

94F0 


A 60 4 

LDX 

$04 

9391 


91) 1093 

STA 

MASQ+1,X 


9440 


BD0393 

LDA 

MOTIF,X 

94F2 


BD0393 

LDA 

MOTIF,X 

9394 

RO î M02 

60 

RTS 



9443 


293F 

AND 

#$3F 

94F5 


250D 

AND 

$0D 

9795 

ROTMOI 

209993 

J SR 

ROTMMM 


9445 


48 

PHA 


94F7 


85UU 

ST A 

$0D 

9398 


60 

RTS 



9446 


A507 

LDA 

$07 

94F9 


200B95 

JSR 

FINMOT 

9399 



REM 


944e 


C50B 

CMP 

*08 

94FC 


60 

RTS 


9799 



REM 



944A 


DO 10 

BNE 

YY1 

94FD 



REM 

lere Rout.Motif 

9399 

ROTMMM 

BDI093 

LDA 

MASQ+1,X 


944C 


C901 

CMP 

#$01 

94FD 



REM 


939C 


4A 

LSR 



944E 


F 006 

BEQ 

YY2 

94FD 

F I N MO K 

48 

PHA 


939D 


9D1093 

STA 

MASQ+1,X 


9450 


A960 

LDA 

#$60 

94FE 


A205 

LDX 

#$02 

93 AO 


60 

RTS 



9452 


850C 

STA 

$0C 

9500 


BD0F93 

LDA 

MASQ,X 

93A1 



REM 

Deb/Fin Colonne 


9454 


DO 14 

BNE 

YY4 

9503 


ssoc 

STA 

$oc 

°3A1 



REM 



9456 

YY2 

A961 

LDA 

#$61 

9505 


49FF 

EOR 

#$FF 

93 Al 

DEBFIN 

A 508 

LDA 

$08 


9458 


850C 

STA 

$0C 

9507 


S50D 

STA 

$0D 

93 A 3 


8507 

STA 

$07 


945A 


DOOE 

BNE 

YY4 

9509 


6 B 

PLA 


93 A 5 


AOOO 

LDY 

#$00 


945C 

YY1 

C901 

CMP 

#$01 

95oA 


60 

RTS 


93A7 

BCLA 

A97F 

LDA 

#$7F 


945E 


D006 

BNE 

YY3 

950B 



REM 

2eme Rout.Motif 

93A9 


9110 

STA 

($ 10 ),Y 


9460 


A941 

LDA 

#$41 

950B 



REM 


93AB 


203593 

J SR 

I NK 10 


9462 


850C 

STA 

$0C 

950B 

FINMOT 

A202 

LDX 

#$02 

93 AE 


C607 

DEC 

$07 


9464 


D004 

BNE 

YY4 

950D 


BD1093 

LDA 

MASQ+1,X 

93B0 


D0F5 

BNE 

BCLA 


9466 

YY3 

A940 

LDA 

#$40 

9510 


050D 

ORA 

*0D 

93B2 


60 

RTS 



9468 


850C 

STA 

$0C 

9512 


050C 

ORA 

fOC 

93B3 



REM 



946A 

YY4 

68 

PL A 


9514 

FINMOX 

0940 

ORA 

#$40 

93B3 



REM 

Début Progr. 


946B 


050C 

ORA 

$0C 

9516 


297F 

AND 

#$7F 

93B3 



REM 



946D 


9110 

STA 

($ 10 ),Y 

9518 


9110 

STA 

($ 10 ),Y 

93B3 

DEBUT 

20C5De 

J SR 

LECT 


946F 


60 

RTS 


951A 


60 

RTS 


93B6 


861 0 

STX 

$16 


9470 



REM 

Cote Droit 

951B 



REM 

Partie Centrale 

93B8 


2ÛC5DB 

J SR 

LECT 


9470 



REM 


951B 



REM 


93BB 


8699 

STX 

$99 


9470 

COTE 

207F94 

J SR 

COTXXX 

951B 

LHAR2 

203593 

JSR 

INK 10 

93BD 


20C5DS 

J SR 

LECT 


9473 


201495 

J SR 

FINMOX 

951t 


AOOO 

LDY 

#$00 

93C0 


86 BB 

STX 

f BB 


9476 


207E93 

J SR 

ROTMAS 

9520 


A604 

LDX 

$04 

93C-2 


20C5D8 

J SR 

LECT 


9479 


A603 

LDX 

$03 

9522 


BD0393 

LDA 

MOTIF,X 

93C 5 


8605 

STX 

$05 


947B 


206D93 

J SR 

ROTMOT 

9525 


201495 

JSR 

FINMOX 

93C-7 


8606 

STX 

$08 


947E 


60 

RTS 


9528 


A5Ut 

LDA 

fOE 

93C9 


20C5D8 

J SR 

LECT 


747F 



REM 

Elemt de Cote 

952A 


C901 

CMP 

#$01 

93CC 


CA 

DEX 



947F 



REM 


952C 


DO 04 

BNE 

CHAFIN 

93CD 


8602 

STX 

$02 


947F 

COTXXX 

AOOO 

LDY 

#$00 

952E 


A97F 

LDA 

#$7F 

93CF 


20C5D8 

J SR 

LECT 


9481 


B110 

LDA 

($ 10 ),Y 

9530 


9110 

STA 

(* 10 ).y 

93D2 


e 606 

STX 

f 06 


9483 


48 

PHA 


9532 

CHAFI N 

60 

RTS 


93D4 


EOOO 

CPX 

#$00 


9484 


A603 

LDX 

$03 

9533 



REM 

Partie Droite 

93D6 


FOOC 

BEC- 

DEBOO1 


9486 


BD0393 

LDA 

MOTIF,X 

9533 



REM 


9.3D8 


C60B 

DEC 

$08 


9489 


850C 

STA 

$oc 

9533 

CHAR3 

203593 

JSR 

I NK 10 

93DA 


DOOB 

BNE 

DEBOO1 


948B 


A200 

LDX 

#$00 

9536 


A5uE 

LDA 

$OE 

7?DC 


A900 

LDA 

#$00 


948D 


BD0F93 

LDA 

MASQ,X 

VÎjoo 


C901 

CMP 

#$01 

93DE 


8506 

STA 

$06 


9490 


48 

PHA 


953A 


D005 

BNE 

CHA300 

93E0 


A505 

LDA 

$05 


9491 


250C 

AND 

fOC 

953C 


A97F 

LDA 

#f 7F 

93E2 


8508 

STA 

$08 


9493 


1D1093 

ORA 

MASQ+1,X 

953E 


91 10 

STA 

(f 10 ),Y 

= 3E4 

DEB001 

20C5D8 

J BR 

LECT 


749c 


3 5 OC 

STA 

fOC 

9540 


60 

RTS 


93E7 


CA 

DEX 



949g 


68 

PLA 


9541 

CHA300 

207F94 

JSR 

COTXXX 

93ES 


8603 

STX 

$03 


9494 


49FF 

EOR 

#f FF 

9544 


20FD94 

JSR 

FI NMOK 

93EA 


20C5D8 

J SR 

LECT 


949B 


850D 

STA 

$0D 

9547 


250D 

AND 

fOD 

93ED 


CA 

DEX 



949D 


68 

PLA 


9549 


850D 

STA 

fOD 

93EE 


8604 

STX 

$04 


949E 


250D 

AND 

$0D 

954B 


A604 

LDX 

$04 

93F0 


A599 

LDA 

$99 


94A0 


050C 

ORA 

$0C 

954D 


BD0393 

LDA 

MOTIF,X 

93F2 


DOO1 

BNE 

TRACE 


94A2 


60 

RTS 


9550 


250C 

AND 

fOC 

93F 4 


60 

RTS 



94 A3 


207E93 

J SR 

ROTMAS 

V 552 


85 OC 

STA 

$oc 

93F5 



REM 

Départ Trace 


94At 


A603 

LDX 

*03 

9554 


200B95 

JSR 

FINMOT 

9 3F 5 



REM 

- , 

3 ) 

94A8 


206D93 

JSR 

ROTMOT (A) 

9557 


60 

RTS 

5) 

93F5 

TRACE 

202393 

J SR 

CALBAS V 


94AB 


60 

RTS 

vy 

OK. . 
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PETITES ANNONCES 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti¬ 
tes annonces farfelues sont systématique¬ 
ment rejetées. .. De même, comme il est peu 
probable qu'il existe des ''généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes annonces faisant appel é ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 

Vends ORIC ATMOS + modulateur NB intégré + 
MCP 40 + Laser DATA + Interface joystick + 7 K7 
orginales le tout 1000 F Tél. : 61.24.05.94. 

Vends Microdisc + Sédoric 1500 f 23 DK 35 F 1 
(200 P) ATMOS 500 F imprimante GP 500. 1600 F 
ou le tout 39000 F Tél. : Gilles 69.42.83.12 

Vends ATMOS + Jasmin + 11 disk + FORTH + 
péritel + câble magnéto + livres + jeux le tout 2100 
F. Stéphane au 60.75.31.60 après 19 h. 

Vends disquettes Jasmin à un très très bon prix. 
Téléphonez à Eric au 79.32.53.78 entre 18 h 30 et 
20 h tous les jours. 

Vends pour ATMOS + MICRODISC disquettes 
originales de MS-TEL avec cordon de détection 
d'appel (Serveur prêt à fonctionner) ainsi que 
COPYTEL, FL-COMPTE, NIBBLE... Documen¬ 
tations complètes fournies. 


Vends imprimante SEIKOSHA GP 250X avec câble 
Centronics et 8 rubans neufs: 1500 frs. Vends 
aussi divers livres, revues et hebdogiciels. 
Téléphoner ou écrire V. CAUQUIL : 

38 Bis rue des Brus 
81000ALBI 
Tél : 63.53.73.63 

ATMOS recherche contacts pour échanges Thier¬ 
ry AQUETTE 19, av. des Accacias 06500 Menton 
Tél 93 35 31 80 après 19 heures. 

Vends Ampli-bus et Interface RS232 pour ORIC 
1/ATMOS Tél : 30.43.01.06 


Vends TRS 80 M1N2 48 k moniteur vert, 1 drive 
5”1/4 + 1 unité centrale (à réviser), nbx. utilitai¬ 
res + doc. + nbx jeux : 3000 F. Tél. 20.91.33.64. 

Achète carte Ampli-Bus pour Jasmin. Tél. 
40.43.40.99 après 19h. 

Cherche contacts ATMOS, trucs et astuces ITHEO- 
RIC), rout. util. LM, ROM et doc. Alain SCHILLING, 
27 rue Cité Noël, 33000 BORDEAUX. 

Vends ATMOS -t- JASMIN 2 F logiciels + 17 jeux 
+ disquettes F magnéto + interface joystick + 
Péritel F imprimante : 2600 F. Tél. 46.21.33.12 
soirée. 

Vends ATMOS F imp. GP 500 + Microdisc + 8 
livres + disquettes : 2800 F. Pierre, LONG¬ 
JUMEAU, 3 rue Calèche, tél. 69.09.09.76. 

Cherche collaborateur région 26-07 pour dévelop¬ 
pement jeux d'aventure sur ORIC & TELESTRAT. 
Tél. 75.01.97.48/serveur : 75.37.48.83, Patrice. 

Cherche programmes THEORIC et Hebdogiciel : 
échange ou achète. Recherche aussi contacts sur 
Lyon. Tél. 78.00.03.69. 

Vends ORIC ATMOS 48 k + livres Basic + nom¬ 
breux programmes + revues -F THEORIC + K7 
(Dogy, Karaté, Présent), le tout : 990 F. Tél. 
27.83.91.96. 

Vends ATMOS + Microdisc + dise F 5 K7 F 


revues + câble, tout est neuf (jamais utilisé) ! Sacri¬ 
fié : 2700 F. Tél. 42.06.14.78. 

Vends ORIC ATMOS F lecteur K7 + câble K7 F 
câble monit. + nbx jeux + livres, le tout : 600 F 
cause double emploi. Appeler au 47.09.14.75 Fré¬ 
déric ROCHEMONT, 18 rue de l'étang, 92370 ST. 
DE MISCHAVILLE. 

Vends THEORIC de 1 à 25 ( - n° 3) 25 F + port 

- n° 6 (3) n° 7 (1) n° 12 (3) n" 1 7 (2) n° 15 (3) 
n° 1% (1) : 25 F + port. N° 21, 22, 23 : 20 F + 
port, Tél. 97.65.90.56 après 1 7 h. 

Vends ORIC-1 complet + jeux + kgs listis + trucs 

- montage 4 livres - revues + interface prog. + 
synthé Micro Sys. + magnéto : PU 1200 F. Tél. 
97.65.90.56. 

Vends crayon optique pour ORIC ATMOS : 350 F 
F mode emploi. Joseph LOGRE, 7 rue Alfred de 
Musset, 94130 ORLY. 

Vends ORIC-ATMOS : 500 F F moniteur couleur 
Taxan r 2000 F F lecteur disquettes Jasmin 1 : 
2000 F + imprimante 80 col. : 2500 F. Tél. 
48.59.09.21. 

Achète tous logiciels Jasmin et cherche ORIC 1 + 
cherche contacts région Moselle. Jean BACHELIER, 
Forbach, tél. 87.87.92.04. 

Vends MCP 40 très peu servi + 25 THEORIC + 
livres F 100 Hebdo F divers programmes, le tout : 
1000 F. Vente séparée possible. Tél. 78.50.53.27 
Lyon. 

Vends ATMOS + JAMSIN F imprimante MCP 40 
F collection THEORIC F Easytext F Multifich F 
Origraf F jeux : 3200 F. Tél. 30.41.73.23 après 
19h. 

Vends ATMOS F manuel F livres F magnéto F 
K7 (Secret Tombeau, Dimant Ile Maudite, Masque 
d'Qr) : 500 F. Tél. 45.35.70.30. 

Vends TELESTRAT complet F moniteur Zénith 
vert, le tout neuf pour : 3500 F. Faire offre à 
Richard au 78.00.01.79 après 20h. 

Achète livres pour ATMOS. M, SUDELEC, 16 bis 
ch. de la Baronne, 06110 LE CANNET. 


ANNONCEZ-VOUS! 

les petites annonces et les messages 



« Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

>- SORACOM, La Haie de Pan, 35170 BRUZ 

-zXg. 




ABONNEZ 

VOUS- 

(attention ■ l u f à l'ordre a 

^ Cl-loi-" “"‘ilîiln. SOR î5Uo'wÛz„ mé<o obo-e^ 

mDle sur le p roch 5 du mois- 

Pour être pr<* parvenir avan prénom . 



NOM . 

adresse Ville 

Code P° stal Signature 

P°y* a mois l«ne set 


Code P° sta Signature • ; . 70 F 

Pays - «-ois lune seule ..... * 3& F 

sbeskS * F 

S 3 KSS“ .-m 

^bonnem « -• • • * * ^ — — 

(6 disquette^ ^ 



_> SORACQM 


I ES DISQUETTES DE THEORIC 

Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 

Le prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette), 146 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. __ 


1 THEORIC n° 

2 THEORIC n c 

3 THEORIC n c 


4 et 5 
6 et 7 
8 et 9 


4 THEORIC n° 10 et 12 

5 THEORIC n° 1 3 et 1 4 

6 THEORIC n° 1 5 et 16 

7 THEORIC n° 1 7 et 1 8 

8 THEORIC n° 1 9 et 20 

9 THEORIC n° 21 et 22 

10 THEORIC n° 23 et 24 

HS THEORIC HORS SERIE (n° 11) 


VOLUME : T025S<26 

MUS IC . BAS S 
DUMP . BAS S 
DUMP .BIN S 
RWSECT0R • BAS S 
CHANGE .BAS S 
R0UTÏNE .BIN S 
REMC0L0R.BAS S 


76 SECTORS 
7 SECTORS 

2 SECTORS 
4 SECTORS 
13 SECTORS 
19 SECTORS 

3 SECTORS 


JEUVIE . E 
GENE1 .E 
GENE2 . E 
SENEGUY .E 
DATA+AT .E 
DATA+01 .E 
ECRI-EV0.E 
CAMEMBER.E 
INT-GEN2.E 
INT—GEN1.E 
INT-GEN3.E 
FILS1 .E 
FÎL52 .E 
FILS3 .E 
SE0 . E 
SURFACES.E 
POSITION.E 
LEC'SECT. E 
LCA7D23K.: 
POUSPOUS.E 
A7MPARI3.E 


21 SECTORS 
6 SECTORS 
6 SECTORS 
6 SECTORS 
11 SECTORS 

1 1 SECTORS 
9 SECTORS 
8 SECTORS 
15 SECTORS 
15 SECTORS 
19 SECTORS 
14 SECTORS 
14 SECTORS 
14 SECTORS 

2 SECTORS 

11 SECTORS 
5 SECTORS 

12 SECTORS 
14 SECTORS 
23 SECTORS 
98 SECTORS 


BON DE COMMANDE 
DES DISQUETTES THEORIC 


Je commande les disquettes 1 2 3 4 5 HS 6 78 9 10 11 
Ci-joint : 116 F par disquette et mon étiquette abonné 

146 F par disquette car je ne suis pas abonné 


NOM .Prénom. 


Soit au total la somme de 
que ci-joint. 


F réglée par ché- 


Adresse . . . 
Code Postal 


. . Ville 













CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 


NOS REVUES 


Dès que la revue est chez l'imprimeur, le 
sommaire apparaît sur la page concernée. 

Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis¬ 
quettes, cassettes, livres). 


LA BOITE A LETTRES 


Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour - 24h sur 
24h - sans avoir à attendre que la ligne de 
téléphone soit libre les mercredi et vendredi. 

Les correspondances sont relevées chaque 
jour ! 

De plus, vous pouvez, entre lecteurs, écrire, 
recevoir des messages, faire des échanges 
techniques. 

Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 


LES PETITES ANNONCES 


24h sur 24h, 7 jours sur 7, elles sont acces¬ 
sibles. Nous venons d'améliorer ce service. 
Depuis le 1er janvier 1987, c'est chaque 
jour que les annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas¬ 
ser vos annonces sur le serveur. 


DES INFORMATIONS 


Des informations sont à votre disposition et 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas 
d’erreur. 


NOS PRODUITS 


Nos nombreux revendeurs peuvent utiliser 
le MINITEL pour passer commande. L'en¬ 
semble des produits disponibles est présen¬ 
té. Nous avons simplifié au maximum la pro¬ 
cédure. Lecteurs et revendeurs peuvent aus¬ 
si vérifier si le produit est disponible et quel 
est son prix de vente public. 


36.15, TAPEZ MHZ 
ET FAITES VOTRE CHOIX 
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prénoro 


Mom • 
^dresse 
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La Haie de Pan 
35170 BRUZ 


c oiaia aNDE 


SOBACM 
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